Program Names File Erase Utility 
Programer's Names George Chambers 


eourcet Original Program 

Keyed by: George Chambers 

Date Keyed: Scarborough, Ontario, 1988 
Note: Larken utility 


PROGRAM LISTING 


100 REM File Erase Utility v1.0 for the LAREEN system 

110 REM By G. Chambers 14 Richome Court 
Scarborough, Ont. CANADA Mik 2Y1 

120 REM Use to erase unwanted tiles from a disk 

1:30 REM Data statements contain Drive Control Code. 

140 REM For use with the DSE400 system of 5090 bytes/track 


using a DD drive i.e. BO tracks 

150 RANDOMIZE USA 100: OPEN #4, "dei" 

170 RESTORE VAL "210" 

180 FOR n=VAL "6F000" TO VAL ۲ 

190 READ a: FORE naa 

200 NEXT n 

210 DATA 195,43,246,0,0,0,0,0,0,242,205,98,0,201,58 

20 DATA 100,0,291,:201,:2053,::3,246,509,176,92,950,29,232,205,126 
S50 DATA 0,205,1:223,0,:23,112,352,17,1956,224,1,0,20,237,176 

240 DATA 195,358,246 

260 DIM c# (96) 

270 DIM d£c?0,10) 

BO LET traceVAL "25720": LET loadbufsVAL "63000" 

290 LET namesVaL "37688" 

AO00 BORDER FI/FI: PAPER FI/FI: CLS 

420 PRINT AT VAL "2",VàÀL "7"s INE VAL "2"; PAPER VAL "6"; "LARKE 
لا‎ DISK UTILITY"; PAPER PI/FI:;,,TAB VAL "7"s PAPER VAL "6"s"File 
Erase Facility": PAPER VAL "1",,TAàB VAL "7" PAPER VAL "6": ۷ 
George Chamber a" 

mao INK VAL "X": PLOT NOT PI,VAL "108": DRAW NOT PI,VAL "62": D 
RAW VAL "255",NOT FI: DRAW NOT FPI, YAL "bora DRAW VAL "-2955",.NQT 
FT 

440 INE VAL "6": PLOT VAL BP VAL "114": DRAW NOT FI,VAL "SO": 
DRAW VAL "2356", NOT Fis DRAW NOT PFI,VAL "SO": DRAW VAL "258" ,NO 
T Fl: INK VAL "7" 

245 INPUT "Select Drive (#O-2) "ades PRINT $4: GO TO dr 

AO PRINT AT 106,25 "Drive "ados" now engaged" 

Vu PRINT '''"Ingetall disk needing erasures". wee then Press 


a key"'s PAUSE NOT FI 

260 REM Picking pom names from buffer (Track ©) 

470 PORE traca NOT Fils RANDOMIZE USR loadbuf 

290 PRINT AT VAL "LO" SNOT ۳۸۸ 8 ce! os 

2581 FRINT AT 10,08 

490 FOR ms FI/FI TO YAL "9o" 

400 LET en 

410 IF PEER (name-45)zNOT PI THEN LET esn-1: LET naeVAL "90": (GO 
TO VAL "ABU" 

420 IF PEEK (name+rPI PO YAL "294" THEN LET nameenametVAL "Q's 
GO TO VAL "410" 

420 FOR mF IZPI TO VAL "9" 

440 LET d£(n,m)sCHREX DEER Crame+m) 

450 NEXT m 

460 LET namesnametrVAL "4" 

470 PRINT dE )۲۱۱ 8 

474 IF INT (n/X)mwmin/3) THEN PRINT 

ABO NEXT n 

490 PRINT : PRINT 

300 DIM FEVAL ( 

SAQ FOR n-sPI/FI TO e 

340 LET ffad (m) 

DAD POKE 27608,0: LET r#e"N"s PRINT AT و وت واه‎ "DELETE "fts" Y/N 
Pra PAUSE Os LET REsINEKEYX 

$46 IF e#e"y" THEN PRINT #4: ERASE fF, 

690 BEEF VAL ".,1",VAL "LO": BEEP VAL ",1",UAL "IO! 

700 NEXT n 

720 PRINT AT VAL "16",UVAL "S" "ALL programs reviewed"'''" Frags 
ENTER for another stact,"''" Press ""P"" for RAMdisk menu's PAU 
Sk oO 

30 IF INHEYSz"p" OR INKEY#="F" THEN PRINT #4: GO TO 4: FRINT # 

4: NEW 

740 GO TO VAL "280" 
BOOO INE Os FAFER 7: BORDER 7: CLS : LIST 
8999 STOF 
9000 CLEAR : CLS s: LET odz4: PRINT AT 15,93 "SAVE ROUTINE"''" Pre 
ses "DN" key to save to digsk,"''" aor ""T"" key to save to tap 
ei PAUSE © 
9010 IF (۳۳ ۷۲۰۰۲۸۲ OR INKEY #2" T" THEN LET ocds2 
9020 PRINT sod: SAVE "erase. HI" LINE 1 


Program Names Program Loader Utility v. 1.1 
Programerm's Name: George Chambers 


Source: Original Program 

keyed by: George Chambers 

Date Keyed: Scarborough, Ontario, 1988 
Notet Larter utility 


PROGRAM LISTING 


100 REM Program Loader Utility v1.0 for the LAREEN syst 
EU REM Hy G. Chambers 14 Richome Court 
Scarborough, Ont. CANADA MIE 2Y1 
120 REM Use to erase unwanted files from a disk 
1:30 REM Data statements contain Drive Control Code. 
140 REM For use with the ۵ system of 5090 bytes/track 


using a DD drive i.e.80 tracks 

150 RANDOMIZE USR 100: OFEN #4, "dd" 

140 PRINT 44: GO TO O 

170 RESTORE VAL "210" 

180 FOR n=VAL "63000" TO VAL "63047" 

190 READ as PORE n,a 

200 NEXT n 

210 DATA 195,43,246,0,0,0,0,0,0,243,205,98,0,201,258 

m2 DATA 100,0,251,201,205,33,246,58,176,92,50,29, 22,205,126 
220 DATA 9,205,122,0,25,112,372,17,156,224,1,90,20,237,176 

240 DATA 195, 38, 246 

260 LET c=" " 

ro DIM d£*£(90,10) 

280 LET trac=VAL "22728": LET loadbuf=VAL "62000" 

290 LET namesVAL "37683" 

500 BORDER PI/PIs PAPER FI/FI: CLS 

320 PRINT AT VAL "ê" VOL "7"s INE VAL "2" PAPER VAL "6": "LARKE 
N DISK UTILITY": PAPER PI/FI:,,TABM VAL "Bs PAPER VAL "6" "Progr 
am Loader Facility": PAPER VAL "1",,TAB VAL "Z", PAPER VAL "6": " 
Ry George Chambers” 

ook INK VAL "S's PLOT NOT PI, YAL "1LO8"s DRAW NOT PISVAL "62": D 
RAW VAL "aww ra NOT PI: DRAW NOT PI YAL "-62"s: DRAW VAL "255", NOT 
Fi 

440 INE VAL "6": PLOT VAL "BYVAL "114": DRAW NOT FI,VAL "So's 
DRAW VAL. "228" NOT FI: DRAW NOT FI, VAL. "50%: DRAW VAL "-2328",NO 
۲ ۳۶ INE VAL "7" 

S45 INFUT "Drive No? (0-2) "dr: PRINT #4: GO TO dr 

A590 PRINT '''"Place disk in Drive adro” «a then Frese a 


key" "vr PAUSE NOT PI 
260 REM Picking pom names from buffer (Track ©) 
270 FORE trac, NOT FIs RANDOMIZE USR loadbuf 
580 PRINT AT VAL "LO" NOT ۳ اه‎ CE ce 
3601 PRINT AT 10,035 
490 FOR ne PI/FI TO VAL "9o" 
400 LET een 
410 IF PEEK (name5)zNOT PI THEN LET esmei: LET n=VAlL "90": DU 
TO VAL "400" 
420 IF PEER (name+PIZPID) =VAL "254" THEN LET name=namet+VAL "34": 
30 TO VAL "410" 
AQ FOR msPI/PI TO VAL "ni 
440 LET d# (n,m) =CHRE FERE (name+m) 
490 NEXT m 
440 LET nameznamerVAl "34" 
470 PRINT d£n):s 
474 IF INT (n/S)s(n/3) THEM PRINT 
430 NEXT n 
490 PRINT ¢ PRINT 
WOO REM DIM FECVAL Or) 
wel FOR nesFI/FPI TO e 
Sd LET fate" 
S42 FOR T=9 TO 1 STEP =1: IF DF(N,T SS" " THEN GO TO ۸ 
cas NEXT T 
$944 LET FE=DECN, TO T) 
vas CLS LEIT rs "N": PRINT AT 10,0:s"Load program "tE" Y/N? 
“4 PAUSE Of LET Ags J NEREYE 
S46 IF FEY" OR مت‎ THEN PRINT #4: GO TO As PRINT #4: SAVE 
"loader. BI": PRINT #4: GO TO Os PRINT #4: LOAD f£ 
690 BEEF VAL ".1",VAL "I0": BEEF VAL ".1",VAL "1o" 
700 NEXT n 
720 CLS s PRINT AT VAL "15",VAL "4"; "AlI programs reviewed" "IP 
ress a key for another start! colo Frags "bin for RAMdisk menu": 
PAUSE NOT FI 
730 IF INKEY#="p" OR INEKEYZz"P" THEN PRINT #4: GO TO 4: PRINT ۴ 
4: NEW 
740 GO TO VAL "280" 
8000 INE Os PAPER 7: BORDER 7s CLS : LIST 
Bog STOP 
9000 CLS : LET odzs4: PRINT AT 18,9. "SAVE ROUTINE"''" Presse ۳ 
key to save to disk,"''" Qr ""T"" key to gave to tape": PAUS 
E Q 
9010 IF INKFEY#="t" OR ۱۳:۳۰ ۷۹۵۳ 7" THEN LET od=2 
GOLO PRINT Rod: SAVE "Loader. Bil" LINE 1 


Program Names 
Programer's Names 
Secure c es 

Keyed bys 

Date keyed: 


File Recovery Utility for LEDOS 
George Chambers 

Original Program 

George Chambers 

Scarborough, Ontario, 1988 


Notes Larkan utility for DSDD drive only 
PROGRAM LISTING 
100 REM File Recovery Utility for the LAREFEN system 
110 REM By G. Chambers 14 Richome Court 
Scarborough, Ont. CANADA Mik 2Y1 
120 REM Use to recover an accidentally erased file 
IMO REM Data statements contain the"RHMDOS. CZ" Code. 


140 REM For use w 


ith the ۳۸ system of 5090 bytes/track. 


Single], doubler, or (uad-. 


150 GO TO 170 


160 CLEAR : RANDOMIZE USRA 100: SAVE "recovr.Hi" LINE 170 


170 RESTORE 210 
180 FOR m=43000 T 


QO 63104 


190 READ as FOKE n,a 


200 NEXT n 


210 DATA 195,435,246, 195,72, 246,195, 104,246, 245,205,98,0,201,58 


220 DATA 100,0,25 
2*0 DATA 0,205,122 


51,201,205,22,246,58,176,92,50, 29,122,205, 126 
Da dera 112.2417, 196,224, 1 ,0,20,23 S7 و‎ 176 


240 DATA 1 95 5 E 205,2: à gates ES و‎ 1 76, o EI ie a 32,23, 156, 2a 
250 DATA 17,112,22,1,0,20,227, 175,208,150,0,205,126,0,205 


240 DATA 120, Oo, 19 
270 DATA 112,22,1 


wy: Sas 344, 205, 33, 246,205, 129, ao a 


280 DIM e*09)s DIM 'as(9)1 DIM eco DIM eco) DIM di (25 ری‎ 


290) LET tracme23272 
SR VE tz S008 


ts LET mnexttrack#42006: LET loadbufsesooo: LET 


00 BORDER 1: PAPER 1: CLS 
A10 LET ate" RETURN " 


220 PRINT AT 2,6; 
بو‎ TAB Ss PAPER 4: 


INE 24 PAPER ó "LAREENM DISE UTILITY"; PAPER 1 
"Deleted File Recovery": PAPER 1,,TAB 6: PAPER 


4: "By George Chambers" 


330 INK 3: PLOT O, 


PRI E . ©)‏ سم 


240 INE 6: FLOT 8, 


Uds INK 7 
245 INFUT "Drive 


S50 PRINT AT 10,03 


1060: DRAW 0,62: DRAW 255,01: DRAW O,~-62: DRAW 
114: DRAW 0,50: DRAW 288,0: DRAW O,-50: DRAW 


HO“)? Pader: PRINT #4: GO TO dr 
ESAT 14,13 "insert disk with deleted file"''T 


AB log"in Drive "sees ’’" and Press any key to start": PAUSE o 
460 REM Search of tracks for erased file 

270 INPUT "Enter the full name of the deleted file "ibt 

ago POLE trac, O: RANDOMIZE USK loadbuf 

90 LET ZebkEkEk Q7 eQXFPFEER S57 Sie le 1 

400 PORE trac,1: RANDOMIZE USR loadbuf 

410 PRINT AT 10۵ OgdEsAT 10,10; ۵3۲ 10,2: "Searching tracks for 
program" sAT 13,88 "Track Program! 

420 PRINT AT 14,93 "Noe. Name” 

4350 FOR n=l TO f 

440 IF mei AND FEEK S7800=0 AND PEER 57801=0 THEN LET n=793 PRI 
NT AT 0۵ ۸ له‎ AT 11,143 PAPER 74 INE وه‎ "File name not found on tr 
acke"s PAUSE os: STOP 

450 WET desen 

440 FOR mei TO 9 

470 LET atm) =CHRE PEEK (S7501+m) 

4900 NEXT m 

WOO PRINT AT 1۵ و‎ 9٩۳۱ TAR 143 ae 

910 IF afsbt THEN LET n=f 

QU TF ۳۱۰۴ THEN RANDOMIZE USR nex«xttüreack 

ts NEXT n 

ão REM Search for deleted name in Directory 

wu FORE trac, O: RANDOMIZE USR loadbuf 

SON LET g=#S7524-+ed 

70 FORE g,245 

SBO LET c#eb# Cl): LET ef=bE(2 TO 0: LET ef=" RETURN "+e 

90 FOR n=S7688 TO 61088 STEP ZA 

600 IF PEEK (n+4)=0 AND FEEE (n+5)=0 THEN PRINT AT 20,3%; PAPER 
78 INE 2s "Erased Filename not found"; TAB Vim Directory": FALSE 
Oy STOF 

610 FOR m=1 TO 9 

620 LET af im =LHRE PEEK (oem) 

625 NEXT m 

G20 IF eteat THEN LET aen LET nzéiogg: FORE (ati) CODE cê: GO 
TO 640 

640 NEXT n 

650 LET meadi ۸ 

660 FORE m, d 

470 FOR mel TO dé 

6380 IF PEER (mtn) =249 THEN LET n=28: GO TO 700 

690 FORE gen, ads 

700 NEXT n 

710 FRINT AT 4و9‎ 9 AT LO, 3¢ "Program has been restored’ '''' PAR 
ER Gs INE ند‎ "Remove WRITE-FROTECT tab from defective disk and 
install. ۷ ۰ ۰ ۲ Frags a key to save to track O "s: PAUSE Ù 

720 POKE trac, O: RANDOMIZE USR savebuf 

Pato PRINT AT 11, Os dts AT 123,993 "JOB COMPLETED": AT 15,10; "Fregs a 
key", "to display recovered filetonly)"s PAUSE os CLS 

740 PRINT USR 100: CAT bë, 

780 PRINT ''TAàB 21 "Press ""P"" for RAMdisk menu": PAUSE Os IF I 
NEEYXz"RP" OR TNEEY#s"p" THEN PRINT #4: GO TO 4: PRINT #4: NEW 
760 STOF 

1000: SAVE "recovr" LINE 100 
8004040 INK Os PAPER 7s BORDER 7: CLS s LIST 


909399 
POO 
key 
EO 
9010 
FORO 


STOF 


CLS : LET ods4: 
to save to disk,"''" or 


IF INKEY£$z"t" OR 


FRINT od: 


SAVE. 


PRINT AT 15,9, "SAVE ROUTINE" ۰ ۳ ۸۳ Press 


ENEE Ygs T” 
"necovr.HL" 


۱۱ HM H 


key to save to tape”: 


THEN LET chan 


L. INE 


100 


1 "pm n 
FAUS 


Program Name: Disk Doctor Ldoctor. Bi) 
Programer's Names George Chambers 


Gour Ces Original Program 

keyed by: George Chambers 

Date keyed: Toronto, Ontario, 1988 
Notes Larken utility 


PROGRAM LISTING 


Q>REM George Chambers, 14 Richome Court 
Scarborough, Ontario CANADA Mik 2Y1 


105 RANDOMIZE USR 100: OFEN "4,"dd" 
106 PRINT #4: GO TO Os LET dre 
108 RESTORE 112 
109 FOR mn=44000 TO 44119: READ a: FORE nya: NEXT n 
112 DATA 195,249,171,195,7,172,195,27,172,195 
112 DATA 36,172,195,75,172,243,205,98,90, 201 
114 DATA 38,100,060, 251,201,205,239, 171,58, 124 
115 DATA 171,590,29,32,205,126,0,24, 237,205 
116 DATA 239,171 ,58,124,171,590,29, 32,205,129 
117 DATA 0,58,29,32,50, 12 24,171,254,217,2029 
118 DATA 239,171, 175,50, 32, 32,205, 123,0,98 
119 DATA 32,32,79, 6,0,33,112,32,17,80 
129 DATA 195,1,9,290,227,176,24,188,205,239 
121 DATA 171,3 Re ER qo may 1 و‎ 0, 20 
Lar DATA 2:37,176,2025,120,0,24,169,205,2239,171 
123 DATA 42 144, 171,78,35,70,24,158,0,0 
160 DIM ak (G40) 
170 LET vo=z0: LET oasin LET obzs2:s LET oc=ã 
190 LET settrack=VAL "44000" 
195 LET namesSoidggd 
SQQ LET nexttrack=VAL "44003" 
veto LET load=VAL "44006" 
oo LET savezVAL "44009" 
240 LET track=VAL "42900" 
SOL LET drivesVAL "4530 ) " 
260 LET buffer=VAL "50000": LET bufflenth=VAL "S120": 
ellsvaL "SS71"s LET cdiskname=4463 
270 PORE drive,ob 
ZO LET treaeg=VAL "18" 
290 LET side=ob 
200 GO TO VAL "Boao" 
1000 REM Track Used/Free Routine 
10905 CLS : LET numbersoos GO SUB VAL "7500" 


LET laste 


1010 PAPER 6: CLS : LET gez: LET Coon LET otses LET ftzsc 


1O20 LET szsFEER SOOZOXPEER 30021 


10:0 PRINT "Dir, "s 

10641 FOR n=buffer+VAL "25" TO buffer rVAL "ZX"tez 

1050 LET tzFPEERM n 

1060 IF t=VAL "245" THEN PRINT TAB ges INE 2gn-50024:1: LET ge=ge 
kén LET Ztetttroan IF gera? THEN LET gesl 

1070 IF t€ VAL "245" THEN PRINT TAB ges: INE dign-SOO24:1: LET ge=g 
e-4s LET otsottoa: IF gezê? THEN LET ge<1 

1100 IF c-VAL "X2" THEN LET cx-NOT c 

1110 NEXT n 

1120 PRINT AT VAL "2O",oag"Tracke Used: "ett? 

1125 PRINT " Disk type "g CS8" AND PEEK 500202123 CDS" AND PEER 


DO ZO Ziel 


1130 
1150 
1170 
1200 
2000 
2010 
2015 
a Qu 


DD" AND PEEK S0021=40)4€" QD" AND FEER $S0021:-s800) 
PRINT AT VAL "Si" oar" Tracks Opens "pot 
PRINT #0; TAR 4: "Frese any key for Menu! 
FAUSE oo 

GO TO VAL ۳ 

REM HEADER READER 

LET ۵ 

CLS s PRINT TAR 10; "DOCTOR. Bi" 

FRINT '" This option displays the file 


information saved 


on each block along with the data." 


an d 
OO 
Q0 


PRINT TAB 9; HH HE E E 1696 16 ¢ 4€ 3F € €"! 
PRINT '" TRACH- The track number on disk" 
RR INT NAàME-The file name is saved on 


* dH 


each block for ref 


erence only" 


200 


PRINT '" START-The start address of the file. Useful when 


saving code, " 


2060 
S070 
mes 

2075 
20766 
2000 
COB 


090 


St CORSE Fan In SORAN HPI PROLE (0000 Sit Dt att 00009 DELAS BOLHA pn DODOS FECES WALDA Gr IRMA ایو‎ 


2100 
2120 
Cs Oo 
2130 
بل ند‎ 4Q 
2190 
2160 
2170 
210 
2190 


QU 


PRINT d$ch'"Treack Number Error on Track 


a 
ud an O 
oT 
ب ده‎ 
dads 


AND 


PRINT '" 
PRINT '" 


LENGTH-Total length of file." 
St./L-The Starting address of BASIC progra 


LET chz2: INPUT "Send to Screen or Printer "s: LINE o? 
IF g#="p" OR gs" P" THEN LET ches 
LET countzoas INPUT "Start at which 
IF count=0 THEN LET counmnts1 


CLS 3 PRINT 4۴۵۳۱ ۳ DI SF 


track No.7 "$ COUNT 


DATA-HEADER READER EE 


PRINT ëch "TRACE NAME START LENGTH  $&t./L." 
PRINT AT VAL "21" VAL "7""(OM returns to menu)": PRINT AT o 
POKE track,counts RANDOMIZE USR settrack 
PRINT ۲۵:۳۱! ۸ Disk Directory Track" 

FOR t=count TO VAL "79"; 

IF PEEK VAL "S5689""VAaL "7" THEN GO SUE 
IF IN 1600 THEN RANDOMIZE USR settrack 
RANDOMIZE WSR load 

PRINT Ech PEER (bof fer toa) s TAR VAL 
IF FEER (buffertoadt O0 THEM : IF PEEKE 
"est 
IF PEEK (butter رون‎ soo THEN PRINT ch: 
FOR a=(buffer+ob) TO buffer+io) 
PRINT ۲۳۱ CHRE PEERK as 

NEXT a 

LET start=O: FOR a=(buffer+ob) TO 
(FEER (a+l)=67 OR PEEK (a+1)=65) 


VAL. 


" aao té 


۱۸ ۳:۲ ۱۱ a 
ont 4 


(buffertoad<>t THEN 


"2280" 


GO TO VAL 


Cbutfer+10): IF FEEK a=46 


THEN LET start=1 


2246 NEXT a 

2290 PRINT ch; TAB VAL "IAM PEEKE (buffer+VAL "1 2") VAL "356" *PEE 
E (buffer+rVAL "13")1 

2260 PRINT «sch; TAR VAL "210, PEEKE (buffer+VAL "S2")4+VAL "256" #FEE 


E {uf f er VAL. 


nm) H 


22659 LET slinezFEEK ((bufferti7)-2596*FEEk {buffer +18) +oa 

2271 IF slinesó5335 THEN LET slines-1 

2272 IF setartzO THEN FRINT Sch; TAR 28ssline: GO TO 2280 

m7 PRINT ۱ 

Seo IF sidezoa THEN LET t=t+o0a: FOKE track, (PEER track) toa 
2290 RANDOMIZE USR nexttrack 

2200 IF INKEYSe"m" OR INKEYS="M" THEN GO TO VAL "Sooo" 

aalo NEXT t 

ZA PRINT "Last track-Press key for menu": PAUSE oo 

wee GO TO VAL "5000" 

AO PRINT AT 19,24" Press any key to continue” 

Add IF INKEY£z"" THEN GO TO VAL "2350" 

460 IF INKEY£$zs"z" OR INKEYS$z"Z" THEN GO SUB 8100 

co IF INKEY£z"m" OR INKEYXz"M" THEN GO TO VAL "5000" 

2580 PRINT AT VAL "A4",oogat£( TO VAL "544"): PRINT AT oc,o00 
290 RANDOMIZE USR load 

2400 RETURN 

200 REM Rename Program Routine 

ato CLS ¥ PRINT AT 1,7s INK 2," RENAME A PROGRAM" O 

Ze PRINT #4: CAT "", 

eae INPUT "Enter old name in full "so# 

2940 INPUT “Enter new name in full ۴ 

2390 PRINT #4: MOVE of, bt 

wO CLS ¢ PRINT AT 6 و‎ 1 ۲ ۲۳۱۵ old program name "gf," has been ch 
anged to ۴ 

2/0 PRINT '''" Press a key to return to menu": PAUSE O 

2880 GO TO F000 

000 REM Dir Analysis Routine 

010 CLS : GO SUB VAL "7500" 

24020 LET number=zo0o: LET fneoo: LET doo: LET n=buffer+VAL "188" 
O30 PRINT AT 21,0:$"z-copy  cmecont  mzmenu t=top" 

4040 PRINT AT oo,oo0:"* Directory / File Data Report sis PRINT 
4050 REM IF PEER VAL "236809"Z6 THEN FAUSE Os PRINT AT oa,oo0:6*: 


FRINT AT 1,0: 


2060 
2070 
OB) 
ZOO 
4100 
S110 
AL ZU 
A130 
45140 
2190 
5160 
A1 ZO 
5180 
ALSO 
S200 


IF ifet 
LET fnzfntoa 

PRINT "Filename ۰۳۳۱ ۲ 4 ۰ TAB ۶ 
LET mantoa 


THEN GO TO 32020 


IF PEEK n=28% THEN GO TO VAL "S130" 

IF PEEK mn=VAL "254" THEN GO TO VAL "X220" 

PRINT CHR? PEER m 

GO TO VAL "Sogo" 

PRINT TAB oap Tracks: ۶ 

LET FR Oo 

LET con 

LET ۵ 

LET ftzft-0a 

IF FEEKR n=VAl. "249" THEN PRINT : GO TO VAL "3240" 


PRINT INK An (PEEK m)”, s 
LET با‎ FOC 


4-410 GO TO VAL "S160" 

memê PRINT و‎ "Empty name cell" 

See GO TO VAL "X260" 

A AO PRINT 1 e ae a se o q qe at a pr m EE a a یت‎ em n n " AND (d=0) 

42542 IF PEEK VAL "23689"<6 THEN PAUSE Os IF INKEY#e"c" THEN PRIN 
T AT va,00;58%8: PRINT AT 1,0: IF if="t" THEN GO TO 3020 

Sede IF INEEY#*>"" THEN GO TO X300 

3260 LET ۳۸ 

4270 IF nzbuffer-lastcell THEN PRINT '"Last name cell.Press m fo 
ro menu": PAUSE oos GO TO VAL "Saag" 

Seo IF PEEK ne255 THEN GO TO SONO 

4-90 GO TO 2260 

A400 PORE 236980,0:2 LET iE=INEEYVE 

alo IF iXz"z" THEN COPY : PRINT AT oa, oogats AT oa,oor GO TO 225 
Q 

4420 REM IF if="c' AND PEER 236896 THEN PRINT FEE 223689: STOF 

DU TO 3050 

wd IF ise" m" THEN GO TO 5000 

4040 IF iZXz"t" THEN CLS : GO TO FOTO 

2490 30 TO 2232 

4000 REM Track Manipulation Routines 

4010 CLS : LET m=oo 

4020 PRINT "Examine which track? (0-79) " 

4030 INPUT number 

4040 GO SUB VAL "7800" 

4045 IF numbers oPEERK $0001 THEN PRINT AT 1O,23 "Track "agnumberg" 


has not been loaded" ۰ ۲ 
continue": 


40850 
4060 
load 
4070 
40800 
4090 
4100 
4110 
41:20 
41:30 
4140 


R$ PEER. 
EEE x att AND PREF Heol ya 


4150 
4160 
4170 
418900 
41970 
A200 
4:310 
4220 

big 
4240 
AE) 
A260 
4270 


due to a disk enrrorc"''" Preme a key to 


PAUSE O: GO TO 4000 
GO TO VAL "40980" 
BORDER é: PRINT INE Of #0." alter back cont dire etc jumpé 
menu name save top zend” 
RETURN 
Cl. Es 
GO SUB 4060 
FOR n=buffer TO buffertbufflenth STEF 17 
PRINT AT 0,64 PAPER 63; "Reading track No "i PEERKE 30001 
PRINT AT 1,298" "SAT 1,1; "adele map byte ehr” 
FOR xen TO n*16 
PRINT xa TAB 9sx-buffers TAB 17 PEEK wg" "sTAB 253: PRINT CH 
x AND (PEER x31 AND PEER mia po AND (number=z0 AND P 


NEXT x 

GO TO 4180 
NEXT n 
FORE 22688 
ml 

j es | 1 
1 Ba" a! 
jX-Us" 
i B=" Mm! 

4 kas ۱۲ و‎ ۷ 
Léia! 
qm! 
i dunt! 4 14 


Ter 


PRINT 


LET itet": LET de TNR EY & 


AND nzs2:5111 THEN GO TO 4170 


THEN 
THEN 
THEN 
THEN 
THEN 


AND oi 


THEN 
AND 


GO TO 4000 

GO TO 4310 

GO TO 4620 

GO TO 5000 

LET n=buffer+171: GO TO 4170 

=8094 THEN LET nan+173 GO TO 4170 
LET menm- zad: GO TO 4170 


rages THEN LET nen+ig7: GO TO 4170 


4280 
4283 
4290 
AE 
4310 
A0 


k (N/T)? 


IF if="d" THEN LET n=buffer+diskname: GO TO 4170 
IF if="2" THEN LET n=buffertlastcell: GO TO 4170 
IF i#¢="t" THEN LET nzbuf[fer-17: GO TO 4170 

GO TO 4180 

IF INKEY#< "o THEN GO TO 4310 


FORE 25698,0; LET (Sens PRINT AT 20,90; "Change Name or Trac 
“4 LET if=INEEYE 


4530 IF 1 4 ۲۳۱۲ AND i£Xz2"t" THEN GO TO 4320 
AXAO IF INKEYXz—"" THEN GO TO 4340 
4590 PRINT AT 19,05" Select Start address Use keys 
H, A, and ENTER" 
4260 LET yzsx-17s5 LET ame 
43570 PRINT AT 2,163 FLASH 8 ۲۳۳۲ FLASH O 
4385 IF INKEY€z"a" AND 2%18 THEN LET yeyti: FRINT AT 2,163" “AT 
z+i ió: FLASH ۱۶ ۳۳۲۵ FLASH O: LET z=z+ 
43590 IF INEKEYXz"q" AND z222 THEN LET ysy-1: PRINT AT 2,163" ۲ 
z-1,16; FLASH ۱ ۳:۲ FLASH Os LET z-z-1 
4400 IF INKEyESCHRE 12 THEN LET addr=y: GO TO 4430 
4410 GO TO 4285 
4420 IF addr“buffer OR addrtbufflenth THEN PRINT AT 20,03 "Addres 
& Out of range" "Press any key to re-enter": PAUSE Or, GO TO 4290 
4430 IF idct" THEN PRINT AT 19,04 INE 2g" 
Enter (2068) to stop ý 
4440 IF iSzc"n" THEN INPUT "Enter Disk Names “eng: GO TO 4570 
4450 IF i#="t" THEN INPUT "Enter Track numbers "sz: GO TO 4470 
4460 IF i*Xc5"t" AND z£z»"n" THEN GO TO 4420 
4470. IF z-2068 THEN GO TO 4580 
4400 IF PEEK addr=255 OR PEER addr=252 THEN PRINT AT 20,1; INK 2 


"overwriting a marker at 
d (y/n)"1 


4492 
4490 
A00 
42510 
4 ao 
ATO 
۸54 )( 


NT AT 20,13 
LU wish to continue?iy/n)'": 


ASAS 
4530 

weg 
4570 
42579] 
4880 
4590 
4600 
4610 
46:220 
46:30 
46440 
4620 
4660 
466970 


"saddrs TAR 32'"Do you wish to continue 
INE Os PAUSE © 

PORE 235658,0: IF INKEY£€z'"n" 
FORE addr’, a 

IF 22249 THEN GO TO 4380 
LET addrsadadr+1 

GO TO 4450 


THEN GO TO 4580 


FOR asi TO LEN nF 
IF PEER addr=205 OR FERE addr=253 OR PEEK addr=249 THEN PRI 


INK 23"Overwriting a marker at 
INK O: FAUSE o 
PORE 23689,04 IF INKEY¢e"n" THEN GO TO 45880 
FORE addr, CODE n# Ca) 


"addr: TAB 2º" Do yo 


LET addrwacddr +1 

NEXT a 

IF addr 34500 THEN PORE addr, © 

CLS : GO SUB 4060: GO TO 4110 

TF LEN pied THEN LET p#ep#¢ TO LEN p#-41) 
PRINT AT lin,23sp*$;ji*X;" " 


IF INKEY#< nn 
GO TO 4580 
IF INKEY£«»'"" 


THEM GO TO 4610 


THEN GO TO 4620 
PONE 2365898,0:s LET i$sINKEYSt 

INPUT "Save to Same or New track"? 
IF INKEYXz5"" THEN GO TO 4660 

IF i¢fe"e" THEN GO TO 4700 


و و" 


4430 


IF iX-"n" THEN GO TO 4720 


4690 IF 1۰ ۲ وه‎ OR ۸ ۲۰ ۲۲۳۱۲ THEN GO TO 4640 

4700 GO SUB VAL "7600" 

4710 GO TO VAL "4080" 

4720 INPUT "New track number? “amunher 

4750 IF INKEY#<>"" THEN GO TO VAL "4750" 

4760 IF number2VAL "79" THEN GO TO VAL "4680" 

4770 GO SUB VAL "7600" 

4780 GO TO VAL "4080" 

4790 LET p#=p#( TO LEN p-1) 

4900 PRINT AT VAL "18",VAL "20"spfsidSg" "s PAPER VAL "7" 

4810 GO TO VAL "4720" 

4820 COFY 

4320 GO TO VAL "4100" 

SOOO REM Ment 

S010 BORDER obs: INK oo: PAPER Gs CLS 

SUG PRINT " DISK DOCTOR wé, 44" 

Ovo REM v2.26 modified FORMAT routine to give default values 
3026 REM v2.27 To correct an error in line 6080 (LET mzsm-oo chan 
ged to LET msm-oa) 

5027 REM modified the rename routine to use the new MOVE commancl 
UO PRINT" For the TS 2068 *& Larken LEDOS c G.F. Chamb 
erg 

43040 PRINT AT VAL "4", VAL "4"s"1. Tracks Used/Free" 

SOOO PRINT '" 2. Track Header Reader" 

3060 PRINT '' 4. Directory Analysis" 

29070 PRINT '" 4, Examine/Modify a Track" 

2080 PRINT '" we Program Start/Langths" 

3090 PRINT ^" & Rename a Program” 

LOO PRINT '" 7. Select Drive (Now Drv "s FLASH هه‎ ۳۶ FLASH 
OS ۱ ( ۷ 

5110 PRINT '" 8g. Return to Ramdisk menu" 

L1 PRINT '" 9$. Save this Program" 

SISO PRINT S14 TAB 7$ FLASH 1"> PRESS A KEY": PAUSE oo 

S130 LET LEZINKEYVE 

23140 IF i$2"1" OR ix2"9" THEN GO TO VAL "S130" 

190 IF itfz"1" THEN GO TO VAL "1000" 

160 IF if="2" THEN GO TO VAL "2000" 

170 IF iz" THEN GO TO VAL. ۲ 

2190 IF isz"4" THEN GO TO VAL "4000" 

i190 IF idXz"5" THEN GO TO VAL "6000! 

wel IF ig="6" THEN GO TO VAL "22500" 

valO IF i$5s"7" THEN PRINT AT 21,0045a£( TO S2»): GO SUR VAL "8010" 
:GO TO VAL "Sooo" 

wa IF i$e ng" THEN PRINT #4: GO TO 4: PRINT #4: NEW 

deol IF izz"9" THEN GO TO 9000 

waodo GTOP 

6000 LET namez50188: DIM d#(100,9)s DIM d(100) 

6010 CLS : FORE 25658,0 

60:0 INPUT "Disk #7 و"‎ LINE nã 

6030 LET chee: INPUT "Send to Screen or Forinter "a LINE gt 
60:32 IF gf="p" OR g£z"P" THEN LET ches 

6040 REM Picking pgm names from buffer (Track OQ) 


6050 PORE track,O: RANDOMIZE USR settrack: RANDOMIZE USR load 
6060 PRINT AT 7,10; "Header Reader" ' TAB Sy "Scanning the Directo 
ry" 
6070 FOR mei TO 100 
6078 LET en 
ONBO IF FEE (namerz)=0 THEN LET exsn-i1s LET n=100: GO TO 6150 
6090 IF FEEE (namet1)=254 THEN LET name=namet24: GO TO 6080 
6100 FOR m=] TO 9 
6110 LET dé£(in,m)sCHEE€ FERE (nametm? 
6120 NEXT m 
61:29 LET dí(n)sPFEERK namet*11) 
61:30 LET nameznamet34 
6140 PRINT AT 12,11sd€n)01" " 
61590 NEXT N 
6180 CLS : PRINT $chi "PROGRAM LISTING DIBK s ۲ 4 ۴ 
6190 PRINT #ch: "File Name Start Length St./Ln"sAT 1,9; OVER 1 
ی ا ا‎ SS 
6195 PRINT Sch 
6200 PRINT Son" Press M for menu" 
42735 IF INKEY#="m" THEN GO TO 5000 
6290 IF PEER 2368944 THEN PRINT ۶1 ۸1 0,08 "Continue Menu 
"s PRINT 1 ۸۲ 1,0:8a£( TO X220: FAUSE O: FRINT 1 AT 0,05" F 
ress M for Menu": PRINT AT SX,O0sa*X0C TO 608): PRINT AT 3,04 
6200 FOR nz] TO e 
6290 PORE track,d(nm)d): RANDOMIZE USR settrack: RANDOMIZE USR load 
LET start=PEER (buffer +12) -25956x*PEEK (buffer+13) 
6400 LET length=PEEE (buffer+r2?) -2596*FEEK (buffer +23) 
6410 LET slinezFEEkK (buffer+1l7)+256*#FEER (Cbuffertigo+i: IF sline 


meti THEN LET 


slines-] 


6420 PRINT ۲۱ 0 )۳۱( ۸ ۳ ۰ ۳۰ 8۵۳۳۲۱ "lengths TAR 263 
6425 LET start=O: FOR m=1 TO LEN d£(n)-1: IF d#(n,m)="." AND (df 
emamt ide "gn OR d*(in,mt*1)-x"A6") THEN LET starts] 
64:30 NEXT m 
6425 IF start=O THEN PRINT 4۲6۳ ه‎ 1 ۵ 
64:557 IF gstart=1 THEN PRINT Sch 
6460 IF INKEYSz"n" THEN GO TO 6000 
6470 IF INKEY#="m" THEN GO TO 3000 
6900 IF PEER 2266094 THEN PRINT ۸ ۱ ۸۲ O,O0: "Continue Menu 
"s PRINT 1۱۵۲ 1,O0:a£( TO 320: PAUSE O: PRINT HIFAT 0,05" ۳ 
ress M for Menu": PRINT AT E, ده ول‎ TO 608): PRINT AT 3,05 
6850 NEXT n 
6860 PRINT TAB Sa "Last program on disk" 
6900 BEEP .1,10: PRINT *1:A4T 1,05" Next Disk Menu | 
4910 PAUSE © 
6920 IF INKEY#2"n" OR INEKEYSXzs"N" THEN GO TO 6000 
4920 GO TO SooQ 
7000 STOF 
7800 REM Load a Track 


7511 
ad 

7550 
7600 
7601 
RITE 


PORE track,number: RANDOMIZE USR settrack: RANDOMIZE USR lo 


RE TURN 
REM Save a Track 
CLS : PRINT AT 10,63 "Writing to track "snuamber''" Remove W 


PROTECT sticker, then press any key" 


FQ 
76604 
7611 
ve 

7650 
BOQ 
BOLO 
9015 
eG) 
EC 
GORO 
SOA 
BOBO 
BLOO 


“NEXT Nt 


9999 
POD 


1i ۱ 


GOLO 
GOLO 


key to save to disk,"''" 
USE o 


1۳ ۱۳:۳ ۲:۴۰ UU THEN GO TO 7608 
PAUSE oo 

PORE track,number: RANDOMIZE USR settrack: RANDOMIZE USR sa 
RETURN 
STOP 
INFUT 
PRINT #4: 
LET desh 
LET ۱۱۳۵۵ 
LET heh 
FORE dri ve,h 
RETURN 

FOR N=4 TO 17: 
RETURN 


"Drive O to A 9 
GO TO h 


"sh 


FOR T=O TO Ais LPRINT SCREENS NEXT 1 


) ولا‎ Tas 

STOF 

CLEAR 1 "up 
FA 


LEIT ods4: PRINT AT 15,9: "SAVE ROUTINE"''" Fress 


or ""T"" key to save to tape": 


IF INKEY$z"t" OR INKEY#="T" THEN LET od=3 
PRINT #od:s SAVE "doctor. BRI" LINE 105: RUN 


Program Names Disk Directory Repair 
Programer's Names jeordge Chambers 


Sources Original Program 

Keyed bys George Chambers 

Date Keyed: Scarborough, Ontario, 1988 

Notes L arken utility for DSDD drives only 


PROGRAM LISTING 


i100 REM Disk Directory Repair for the LAREEN system 

110 REM By D, Chamber ss 14 Richome Court 
Scarborough, Ont. CANADA Mik Avi 

120 REM Use to reconstruct a damaged Directory (Track ©) 

130 REM Data statements contain the"RHMDOS,CZ" Code. 

126 REM For use with the DSk4oo system of 5090 bytes/track 


using DD drives i.e. BO tracks 

140 GO TO 140 

160 RESTORE 210 

170 FOR nzé3000 TO 63104 

190 READ a: FORE mya 

190 NEXT n 

210 DATA 195,43,246,195,72,:246,195,104,246,2 a, 205,98, OL, SO 
Zil DATA poe ,0,251,201,205,22,246,58, 176,9 2,50, 29,32,205,126 
2o0 DATA 0,205,1225,0,:233,112,252,17, 155,224, 1,0,20,237,176 

ZO DATA 195,3 po or one SE 29,22,23,156,2 4 
290 DATA 17,112,352,1, Q,20,2 357,176,205,150,0,205,126,0,202 

2600 DATA 120,0,1935,380,. 246 205,33, 246,205,129, 0,205,132 $,0,92 

270 DATA 112,22,17,156,224,1,9,20,227,176,195,38,246,201,0 

ZO DIM a€079,9)8 DIM ECE 079,99) DIM be (9): DIM d# (254) 

00 LET trace22728: LET nexttrack#63006% LET loadbuf=62000: LET 
وه‎ AVE و‎ eg OOS 

410 LET D79: LET ezi: LET felts LET bufferz579500: LET name=3768 
Qi: LET tracknos87/698 

alo BORDER 1: PAPER ds CLS 

Ae PRINT AT 2,44 INE 24 FAPER Gr "LARKEN DISK UTILITY vi.2":s PA 
PER 15 و و‎ TAB 23 PAPER 6: "Directory (Track ©) Recovery": PAPER و و1‎ 
TAB 73 PAPER 6:"BEy George Chambers” 

wad LNE 3: PLOT 0,108: DRAW 0,623 DRAW 295,0: DRAW O,-62: DRAW 
edel y e 

A26 INE 6: PLOT 8,114: DRAW 0,50: DRAW 228,0: DRAW O,-—-95O: DRAW 
wits ys INK 7 

440 INPUT "Drive # (0-3) "sedrs PRINT #4: GO TO dr 

a0 PRINT AT 10,0; dEFAT 14,0; "Insert defective disk in drive ls 


dr’ "and press any key to start": PAUSE O 


260 REM Picking program names off each successive track 
470 FOKE trac,1: RANDOMIZE USR Ioacdbur 


AGO PRINT AT 10,04 AF 
490 PRINT AT 10,008: AT و 1 و0۸‎ "Lifting names off disk tracks"; AT 


12,83 "Track Program" 
400 PRINT AT 14,9% "No, Name" 


410 FOR nsi TO 79 
415 IF mei AND FEE S7800=0 AND PEEK 575010 THEN LET ne79: GO 
TO 490 
420 LET dan 
450 FOR mel TO 9 
440 LET af (n,m) CHR PEER (CS7501+M) 
450 NEXT m 
460 PRINT AT 16,9:ni" ۱ af tro) 
ABO IF ۳۰ 29 THEN RANDOMIZE USK nexttrack 
490 NEXT n 
S00 REM Flacing Used/Free track record in buffer (Track O) 
2501 PRINT AT 6۸۸۵ 34 AT 14,1, "Install a newly~formatted disk"'' 
TAB 6s"and press any key": PAUSE O 
OG FORE trac, O, RANDOMIZE WSR loadbut 
0:3 PRINT AT LO, ,OpdEsAT 14 و 1 و‎ "Now re-insert defective disk" CTA 
Zi "and Press any key to continue": PAUSE o 
04 INPUT "Enter Disk Name's pÆ 
O6 LET im k+ CHR O 
407 FÜR isi TO LEN iX: PORE (6199941) CODE i#¢ids NEXT i 
Seo FOR men TO d 
aO FORE $7t5«4kn, 245 
4o NEXT n 
www REM Compile the program names into C£ array 
60 PRINT AT 9 و۵ و‎ df AT 9,05 "Reconstruction of the directory wil 
| take a couple of minutes" "Top 10: Please wait" TAR 4: "Compil 
ing program names" 
270 LET اجه‎ Cl) eat (1) 
S 9o FOR m=2 TO d 
GO LET b#eak (n) 
600 LET fag 
610 FOR msi TO e 
620 IF bacem) THEN LET f=] 


630 NEXT m 
640 IF f=0 THEN LET eseti: LET céte)=bg 


450 PRINT AT اه ۱ ۱ و۵‎ (8) 

660 NEXT n 

670 REM Foke pgm names into buffer (Track ©) 

675 PRINT AT ۵8و13‎ MEAT 14,0: "Putting track names in directory" 
680 FOR nsi TO e 

6905 FAUSE 3o 

690 FOR mei TO 9 


700 POBRE mametm, CODE CF (rym) 
7 1) NEXT m 
720 LET namesnames34 


730 PRINT AT 1ó6,11:c$ín) 
740 NEXT n 
750 REM Foke track numbers into buffer (Track ©) 


760 LET fel 

770 PRINT AT 13,0, AFAT 14,0; "Putting Track No's in Directory" 
730 FOR n=l TO e 

790 LET fel 

BOO FOR kel TO 79 

Bio IF c£(no)maX(k) THEN FORE tracknorfako LET fefed: POKE track 
note , 249 

Bro NEXT k 

A0 LET tracknostrackno+rad 

B40 PRINT AT 16,11gc*n) 

S50 NEXT n 

BOU PRINT AT ۲ و۵‎ #۲ AT 16۸ و‎ 1۱ ۳۱۳۵ directory has been rebuilt"''' 
“PAPER Sa INE i "Remove WRITE-PROTECT label from defective dimk 
and install. 7"''" Prosa a key to save to track O "s PAUSE O 
870 POKE trac, O: RANDOMIZE USK savebutf 

880 PRINT AT IL, Osd#r AT 13,95 "708 COMPLETED": PAUSE O 

890 PRINT ''"Another Disk? (Y/N) ۲ FAUSE O 

LOOO IF INEKEYGdXz-"Y" AND INKEY#< ey" THEN PRINT #4: GO TO 44 PRIN 
T #4: NEW 

1010 RUN 160 
gooo INK O: PAPER 7: BORDER 7: CLS و‎ LIST 
8999 STOF 

9000 CLS : LET ade4: PRINT AT 15,93 "SAVE ROUTINE"''" Press "Din 
key to save to disk,"''" Qr "'"T"" key to save to tape": FAUS 
E o 

9010 IF INEEYSZz-"t" OR 0۳:۳: ۷۲۴*۵۲ ۲۲ THEN LET ods2 
9020 PRINT *ods SAVE "repair, Bl" LINE 10 


Program Names: Disk Label Maker (from CAT) 


Programer's Names George Chambers 
Sources Original Program 
Keyed bys George Chambers 
Date keyed: Scarborough, Ontario, 1988 
Notes Larken utility 
PROGRAM LISTING 
100 RANDOMIZE UBA 100: OFEN H4, "da" 


108 
110 
115 
1:20 
nter" 


LZ 


PRINT #43 OPEN WA, "lp" 

PRINT #4; FORE 16090,3231 

CL$ s PRINT TAB 10; "LABEL MAKER O 

PRINT ''" This program prints labels on a large pri 


PRINT '" Because it does a screen copy it can handle only 


disks with about 36 program names" 

125 INPUT "Drive ECO-4)"adrs PRINT #4: GO TO dr 

127 PRINT '''"Install disk in drive "degt, ”’/»} then p 
rese any key": PAUSE © 

OO CLS لا‎ PRINT #4: CAT "", 

140 FOR n=O TO Sis LPRINT SCREENE (C(O ym) 4 ۶ NEXT n 

L50 LPR INT 


160 
170 
180 
190 
"00 


200 


FOR wee TO 21: FOR veo TO Ai 

IF SCREENS (umet " THEN LET usäi 

LPRINT SCREENS QGi,v)21 

IF CODE INKEY#=£1°2 THEN LET well 

NEXT ve NEXT u 

CLS s: PRINT AT 10,0: "Press ENTER to run program again" ' '"or 


Press ""P'"" for RAMdisk menu”: PAUSE Ou IF INKEY#="p" OR INKEY‏ و 


ZE um ۱۱ EU 
$10 
(399 
GOO 
Key 
EO 
9010 
POO 
90350 


THEN PRINT #4: GO TO 4: PRINT #4: NEW 
RUN 
STOF 
CLS : LET ode4: PRINT AT 15,9; "SAVE ROUTINE" ۰ ۳ ۸۳۸ Presse "Ub" 
to save to disk," ''" or ""T"" key to gave to tape": PAUS 


IF INEKEYSZz"t" OR INKEY #9" T" THEN LET 00:2 
PRINT #ods SAVE "labels. Bi" LINE 100 
PRINT sod: SAVE "FPRCODE.CLI"CODE 64256,1111 


File Label Maker 
George Chambers 
Original Program 
George Chambers 
Scarborough, 


Program Names 
Programer’ s Names: 
Gourcuaet 

keyed bys 

Date keyed: 


Ontario, 


Nu uud 


198 


for the LARKEN system 


Note: Larken utility 
PROGRAM LISTING 
100 REM File Label Maker vi.1 
110 REM Hy G. Chambers 


Scarborough, Ont. 


120 
150 


REM Use to make a printout 
REM Data statements contain 


140 
58 3 


with the DSkA400 
tracks 


REM For use 
ng a DD drive i.e. B0 


14 Richome Court 
CANADA MIE 2Y1 


ot disk files 
Drive Control Code. 


system of 3090 bytes/track 


150 RANDOMIZE USRA 100: OREN #4, "eel" 
170 LET "سای‎ d 
180 RESTORE VAL "210" 
190 FOR nsVAaL "63000" TO VAL "63047" 
200 READ as POKE mya 
3210 NEXT n 
2240 DATA 195,43,246,0,9,0,0,90,0,242,205,98,0, 201,58 
230 DATA 100,0,2951, 201,205,33, 246,58,176,92,50,29,32, 205,126 
240 DATA ©, 205,123,0, و ت‎ 11 e 1 7 و‎ 156,224, 150.20, 2074176 
UO DATA 195,38, 246 
260 DIM d$(o90,11) 
70 LET traceVAL 2357280": LET loadbuf=VAL "63000 
280 LET name=VAL "37688" 
290 BORDER FI/FI: PAPER FI/FI a CLS 
200 PRINT AT VAL "2" VAL "é6"; INE VAL "2"s PAPER VAL "6"x" LARE 


EN DISE UTILITY ۶ 

abel-Maker "s PAPER VAL. 

orge Chambers " 
210 INK VAL. PLOT NOT 

RAW VAL. "SSS" NOT FI: DRAW NOT 
FI 


AQ 


How ۱۷ y is 
nl Li 


PI, VAL. 


INK VAL "6": 
DRAW VAL "238" 
T Pols INE VAL 

uad LNFUT "Drive 


PLOT VAL "ën, VAL 
NDT PI: DRAW NOT 


1۱ “FY i 


HOA)" "sede: 


PAPER PI/FI;,,TAB VAL 
"1",, TAB VAL 


et, VAL. 


PI, Véi " 


PRINT #4: 


"YO"; PAPER VAL 
PAPER VAL "6": 


mes u L. 


WA E H Hy (Ses 


Log": DRAW NOT FI YAL "62" D 
"Tréin DRAW VAL "255". NOT 


"214": DRAW NOT PISVAL "SO": 
OO": DRAW VAL "239" NO 


G0 TO dr 


mê PRINT '''''"Install disk needing a label" مه‎ then Pres 
So key"': PAUSE NOT FI 
44g LF INKEY€Z2"" THEN GO TO X35 


AQ 
ar ge 
A0 


FORE 22688,07 PRINT AT 12,04 OVER هن ون ود‎ 14,08 INE 7٩ سا‎ 
ar emali printer? (L/S) "gs PAUSE © 
LET ches IF INKEYS£z"I" THEN LET ch=5: RANDOMIZE USR 100: 0 


FEN Sch, "lp" 


IF INEKEYSXz^"" THEN GO TO 399 

PRINT AT 14,0; OVER och PAUSE SOs PRINT AT 16,08 ۲۳۳۳۸۳۱۲ Nu 
of columns (1-3) "is PAUSE Os: LET p=CODE INKEY$-48 

PRINT AT 16,04 OVER ون ود‎ PAUSE SO 

INPUT "Sort (Y/N)? "ras 

INPUT "Enter Disk Title" sme 

PRINT ۷ 

REM Picking pym names from buffer (Track ©) 
FORE trac,NOT FIs RANDOMIZE USR Loadbut 

PRINT ۷۴۳۱۶ "Digk Names "sns PRINT Sch 

FOR mes FI/FI TO VAL "9o" 

IF PEEK (mamet T) =NOT FI THEM LET espel: LET m=VAL "91's GO 


TO VAL "S0" 


460 


IF PEER (mamet t IZPI’ VAL "254" THEN LET name=namerVAal "XA" 


GO TO VAL "450" 


470 
4900 
490 
m OQ 
uo 
DZ 
DA 
EO 
Je 
260 
ZO 
go 
eo Q 
GOC 
610 
So 
GA 
640 
650 
660 


FOR msPI/FI TO VAL "9" 

LET d£(in,m)msCHRE PEER (nametm) 

NEXT m 

LET name=znamerVAL ۳ 

PRINT AT ۸ ؟ (۳۱ :۵ ۱ 1 و‎ ۳ " 

NEXT N 

IF e*z-"Uy" THEN GO TO $90 

PRINT AT 11,11: FLASH 1s" Sorting "s: FLASH o 

FOR i=1 TO (@-1)+ FOR هدز‎ TO e 

IF dèi) sdt (j) THEN GO SUB S80 

NEXT ge NEXT i: GO TO 890 

LET asxsdEÉEj s: LET d£oj sdÉ£oi)s LET déEcidagãs RETURN 

PRINT AT 11,41," da 

FOR nz] TO e 

IF INT í(n/p)sin/p) THEN FRINT #cehed#in, TO 10): GO TO 620 
PRINT ۳۱ AF (nm): 

NEXT n 

PRINT ۷۲۱۶ PRINT &chs PRINT Sch 

DIM fF (VAL "mi 

PRINT AT VAL "6", VAL "A'a Label finished"''"Prese R key fo 


ro another starct,or"''"FPreess P to return to RAMdisk"s: FAUSE O 


6695 
RINT 
670 
ARO 
BOOO 
3999 
9000 
key 
EO 
GOLO 


OE 


PRINT #4: CLOSE #5: IF INKEY£X-"p" THEN PRINT #4: GO TO 4: P 
۷:4 4 NEW 

DU TO VAL "280" 

STOP 

INE O: PAPER 7: BORDER 7: CLS : LIST : STOP 

STOF 

CLS s: LET ods4s PRINT AT 15,9; "SAVE ROUTINE"''" Preses ۸۸ 
to save to disk," °" Qc ""T"" key to save to tape": FAUS 


IF INEKEYSXst" OR INEEY#2"T" THEN LET ods2 
PRINT docs SAVE "Labels. Bi" LINE 100 


Program Name: Disk «=> Tape Backup Utility 


Programer es Names 3eornrdge Chambers 

Sources: Original Frogram 

Keyed bys George Chambers 

Date keyed: Scarborough, Ontario, 1988 
Notes Larken Utility Spectrum Version 


PROGRAM LISTING 


JOO REM Tape Back-up utility 


110 REM Hy G. Chambers 14 Richome Court 
Scarborough, Ont. CANADA MIE 2Y1 

120 REM For use with the LEDOS system of 5120 bytes/track. 

130 REM Use in Spectrum mode 


140 BORDER Js PAPER i1: CLS 

150 PRINT AT 2,43 INE än PAPER وه‎ "LARKEN DISK UTILITY vi.li"; FA 
PER 1 و و‎ TAR Si PAPER 63" Disk to Tape Back-up "s PAPER 1,,7TAB 71 
PAPER ©: "Ry George Chambers" 

160 INE 3: PLOT 8,108: DRAW 0,62: DRAW 229,01: DRAW O, vb: DRAW 
Aag 

170 INE 64 PLOT 16,114: DRAW O80: DRAW 222,01 DRAW O,-50: DRAW 
waa و‎ Oe INK 7 

180 RANDOMI ZE USR LOO: OPEN #4, "de" 

190 PRINT AT 12,3; "Wait... loading code" 

200 PRINT #4: GO TO Os LET dr=0 

219 REM MINIDOS Control Code 

220 RESTORE 240 

SQ FOR n=44000 TO 44119: READ a: FORE nya: NEXT n 

40 DATA 195,249,171,195,7, 30 ی ی‎ EA OT A 172,195 

250 DATA 56,172,195,75,172,242,205,998,0,201 

260 DATA 58,100, 0,281,201, 205,239, 171,58, 124 

270 DATA 171,50,29,32,205,126,0,24, 227,205 

30 DATA 239, 171,58, 124, 171,50,29, 32,205 4129 

290 DATA 0,58, e adu ys 124, 171,24,2 217,205 

00 DATA 239,171,175,90,3 rao s, SE 

A410 DATA 32,32,79, 65953551 Bye و‎ hb 7 00 

A0 DATA 195,1,0,20,237, 176,2 و‎ 188,205,239 

AGO DATA EE 198,17, 112,32,1,0,20 

240 DATA 227, ee n pos تا‎ LZ 

250 DATA 42, 144,171,78,25,70,24,158, Q, 

A60 LET Sos LET oasis LET obez: LET i ous 

400 LET settracçk=44000: LET nexttrack=44003 

410 LET loads44006: LET save=44009: LET track=43900 

AO LET bufferzssSoooos: LET bufflenthz5120 

440 DIM d#¢S20)5 DIM #۲ (9) 


470 
Tape 


now 


s. Load from 
FLASH 18۳5 FL 


PRINT AT 10,5:"1. Save Disk to Tape"sAT 12,31: 
to Disk": AT 14,32", Change Drive # ~ Now ۶ 


ASH OAT 16,34 "4. Instructions" AT 10,5:2"5. Return to RaMdisk me 


۳۱۱۸ ۲ OT 2O,93 "Frases 


480 
490 
OQ 
wid 
so a) 
tod td Ga) 
790 
1000 
1010 
1020 
FOR 


T USE 


1030 
mu'a 

1040 
1050 


a key" 
THEN PAUSE 
THEN GO SUR 
THEN GO TO 
THEN GO SUE 
THEM PRINT #4: 


IF INKEYXz'"1" 
INEEYsd:m'x" 
1 ۱۳۰۳ ۷ Zait A1 
INKEY*Xz"A" 
INKEY تقد‎ " 
TO 470 
PRINT #4: GO TO 44 PRINT #4: 
REM Saving Digk to Tape 

IF INKEYS<>"" THEN GO TO 1010 


20s GO TO 1000 
BOLO 

2000 

20004 RUN 
GO TO 4: 


PRINT #4: NEW 


NEW 


IF PEER 23736-5168 THEN PRINT AT 12,O;0¢: LET a=4: LET Dei: 


i=10 TO 15: PRINT AT i ii INE a; PAPER bs FLASH 1s" YOU MUS 
SPECTRUM MODE "s LET Can LET asbis LET begs NEXT i 


IF PEEK 257326452168 THEN FRINT ''TAB 43 "Presa any Fey for me 
FAUSGE Os PRINT #4: GO TO 4: PRINT #4: NEW 
PAUSE 20: LET numbers 


PRINT AT 10, Osd#sAT IB, ول‎ ۲ install disk in drive "de "Plac 


e fresh tape in recorcder"''"Start recorder...and press a key", E 


ALIES Es, 
1060 
1070 
LET 
LOBO 
1090 
LET 
1100 
1110 
1120 


Qo 

BEEF Syms PAUSE 30: POKE 22726,1801: GO SUR 7300 
TF number=O THEM LET side=PREK 300204 LET trackesPEER 30081 
onsidezÃ£S (side-l): LET tpd=sPEER tracks*side 

PRINT AT 10,03 dF 

LET gai: FOR n=buffer tê TO butfear+iOs 
g=g+l: NEXT n 

IF numberzoó THEN LET g#="Directary" 
IF CODE g##O OR mumbere=ztpad THEN GO TO 4000 

PRINT AT 18,lad#¢ TO PEAT 18,1" Saving "gE" @ 


LET g#(g) SCHR PEER n 


track# " 


s number 


113X0 
1140 
1190 
UO 
LOLO 


Ot 


یه من 
“uu‏ 
QAO‏ 


2040 


r side 


ACC) 
2060) 
ZU ZU 
A QEO 
A090 
2100 
KD 

2110 
۸ 

FOR 


LET tracks=FEEK 
check 


LET 


1; "Loading to disk Completed": 


SAVE gECODE buffer,bufflenth 
LET oumber=number tansi de 
PAUSE 2004 GO TO 1060 

REM Loading tape to Disk 
PRINT AT 19,0: GO SUR 7500 LET sidewPFEER DOQ 
20021: IF tracks=0 THEN PRINT "Wrong format, 
disk, and Press any key to re-start": PAUSE O: RUN 
PRINT AT 10,O;d#: PRINT AT 10,1: "Start tape & leave running 


" : dr 
" : side! 


PRINT AT 11,12:'"5aving to Drivet 
PRINT '" On this disk... Sides 
"tracks 

PAUSE 80 

LET number 
PRINT AT 19,0; AF 4 
LOAD ""CODE HOQUQ 
IF number=O THEN GO SUB X120 

IF number=0 THEN LET side=FEER 300204 LET onsidezARS 
tracks=PERE SOO021: LET tpdsPEER tracks*side 

PEER SO000=200 THEN PRINT AT 18,O0;d#¢ TO PEAT 198,33 FL 
FLASH O''TAB 9: "Frege a key"t 
edges NEXT ns FALSE os GO TO 40 


Tracks pe 


TO 64)48T 19,13 "Loading next tracks"s 


(si سول‎ 
IF 


m=) TO S: BEEF awalo: BEEF 


QO 

2120 LET gml: FOR nzsbuffer-2 TO buffer+rlios LET g$(tg)=CHRE PEER n 

LET geq*l:i NEXT n 

2130 IF numberso THEN LET gê="Directory" 

2140 GO SUR 7600 

2145 IF number sO THEN GO SUR X120 

2150 PRINT AT 16,O0sd#¢ TO L60)4AT 16,15 "Saved saaniga" on track 
"snumber 

2160 LET number =number tongi de 

2170 GO TO 2070 

AOD INE O: PAPER 7s BORDER 7: CLG 

4010 PRINT TAB 9: "Instructions" ° 

2020 PRINT '" This program has been designedto copy a complete 

disk to tape,and then to load the tape back onto another disk," 

OO PRINT '" It works in the Spectrum mode. This is because the 
LOAD / SAVE routines are more accessible in the Spectrum ROM," 

2040 PRINT '" The program saves to tape on a track by track ba 

Sie." 

2050 PRINT '" The program contains a block of code (data state 


mentes). This if a mini DOS used to control the disk system. " 
A060 PRINT ''" Press a key to continue": PAUSE © 


A070 CLS : PRINT '" Although the program is trcans-parent as to 

the type of drive that is used, care must be takento ensure tha 
t the same drive type is used for the subsequent load as was u 
sed for the initial save, " 

2080 PRINT O" This is because the directory which defines drive 
type has not been modified to reflect a different drive type." 


SO9O PRINT '" Therefore, although the disk format is for the 
one drive typethe system interface, in lookingat the directory, 
Sees it as another type. CRC errors will result." 


4100 PRINT '" Press a key to return to menu" 

5110 PAUSE Os CLS ¢: RETURN 

“leo IF PEEK SO0020< side OR PEEK SOO21ZCtracke THEN PRINT AT 10, 
WY AFAT 10,298 FLASH 1:"Disk Format not compatible"; FLASH O''"Ta 


pe save ier"'" "PEEKE 200215 " tracks per side on "PEEK S00204" 
Sicde"s:("s" AND PEERK $002052)''"Disk formatted tos"'" "tracks; " 
tracks per side on "sides" Side": ("s" AND sides2)''" Press an 


y key for rerestart": FAUSE O: GO TO 3122 

3121 RETURN 

4122 IF INEEYS$z"y" OR INKEYdX:z"Y" THEN POKE &SOoOZ2O,sides FORE 5002 
Ltrackss: RETURN 

S130 RUN 

4000 LET wein LET gf="NoMore": FOR n=butfter+2 TO buffert+7: POKE 
mo CODE g# (xd: LET xscrti: NEXT n 

4040 FORE 30000, 200: SAVE "MoMore"CODE butter, 10: PRINT AT 12,03 
dE AT 15,53 FLASH Ls"Disk saved to tape"' FLASH Os ‘TAB 9: "Press 
a key"s FOR mei TO S: BEEF و ونم‎ BEEP ,5,20:: NEXT n: PAUSE Os 
GO TO oa 

6000 PRINT #4: GO TO O 

6010 FOR m=VAL "i10" TO VAL "21": PRINT AT n,NOT PIscE: NEXT n 
6020 PRINT AT VAL "15",VAàL "6": "Disk copy completed"''"Press P 
key for RAMdisk menu, or another key to copy next disk" 

6030 PAUSE NOT FI 

6040 IF (۳:۳ ۲۷۹۴۰ STF" AND INE EY#< > "pb" THEN RUN 


6050 PRINT #4: GO TO 44 PRINT #4: NEW 

7800 REM Load a Track 

75910 FORE track,numbers RANDOMIZE USR settrack: RANDOMIZE USR lo 
ad 

7920 RETURN 

7600 REM Save a Track 

7610 FORE track, numbers RANDOMIZE USK settrack: RANDOMIZE USR sa 
Ve 

7620 RETURN 

7620 STOF 

gooo INK Os PAPER 7: BORDER 7: CLS : STOP 

BOLO INFUT "Drive O to A  "sdr 

SOLO PRINT #4: GO TO dr 

BOBO RETURN 

S999 GTDF 

9000 CLEAR : LET od=4: PRINT AT 15,9: "SAVE ROUTINE" CC! Press ""D 
۱۲ key to save to disk,"''" or ""T"" key to save to tape": PA 


USE 
9010 
9020 


IF INKEY#=2"t" OR INKEYEXz"T" THEN LET ode? 
PRINT #od: SAVE "tapsav.RBG" LINE 1003 RUN 


Program Names Disk «mr Tape Backup Utility 
Programer's Names George Chambers 


oou cet Original Program 

keyed by: George Chambers 

Date keyed: Scarborough, Ontario, 1988 
Noto: Larken Utility TS 2068 Version 


PROGRAM LISTING 


100 REM By D, Chambers 14 Richome Court 
Scarborough, Ont. CANADA Mik 2Y1 

105 REM Tape Back-up utility 

110 REM For the TS2068 

111 REM For use with the LEDOS system of 5120 bytes/track. 

11:2 REM Uses a subset of the Spectrum ROM to Save and 


Load headeriess files 
140 BORDER 1: FAFER 1: CLS 
150 PRINT AT 2,44 INE 24 PAPER 6: "LOREEN DISK UTILITY v2.0": PA 


PER 18 و و‎ TAB 3 PAPER 6s" Disk to Tape Back-up "s FAFER 1,,TAÀB 7: 


PAPER 6 "Ry George Chambers" 

160 INE E PLOT 8,108: DRAW 0,62: DRAW 229,0: DRAW O,—62: DRAW 
— و 2ک‎ LU 

170 INE 6: PLOT 16,114: DRAW 0,804 DRAW 222,0 DRAW O,-50: DRAW 
wane gOS INK 7 

18% RANDOMIZE USRA 100: OPEN #4, "dd" 

190 PRINT AT Le, Se "Walta a. Loading code" 

200 PRINT #42 GO TO Os LET deed 

210 REM  MINIDOS Control Code 

meto RESTORE 240 

200 FOR n=44000 TO 44119: READ as POKE nya! NEXT n 

240 DATA 195,249,171,195,7,172,195,27,172,195 

so DATA WO 17 و75 وت 1 وه‎ EE 98,0, 201 

260 DATA 38,1900,0,251,201,2 05,239,171,58, 124 

270 DATA 171,50,29,32,205,126, ) و‎ Ag I7, A05 

280 DATA 249 ی ,171,98 و‎ aps d, wag GO و‎ 129 

AGO DATA 0,58, 29 7 Eo wey 171,24,2 17,208 


200 DATA DAP و‎ 1 71 y f 75,50, a gud y ad OS و‎ 12540459 
A10 DATA 32,32,79, 6,0,353,1 1 a aan و‎ 1.7 O 
320 DATA 195,1,0,20,237, 176,24, 188,205 23 


mea DATA T7132 BO, 195,17, 112,32,1, 20 

225 DATA 237,176, 205,120, 0,24, Vig pM 

240 DATA 42,144,171,70,225,70,24,158,0,0 

Q0 REM Spectrum ROM (Load/Save) 

AM RESTORE 360: FOR n=44200 TO 445451 READ a: POKE n,a: NEXT 


X60 DATA O,0,62,255,221,52,80,195,17,0 

X61 DATA 20,205,186,172,201,0,0 O, CNS 

*62 DATA 9 233,13 2B, 51,205,127 ,40,3,33 
TOT DATA 152,12,8,19,221,4%,243,62,2,71 

X64 DATA 16,254, 211,254,238, 15,6, 164 , Ap, 32 
365 DATA 245,5,37,242,208,172,64,47, 16,254 
266 DATA 211,254,62,12,6,55,16,254,211, 254 
567 DATA 1,14,59,80,111,195,255,172, 22.179 
X68 DATA 40,12,221,110,0,124,175,102,62,1 
369 DATA 55,195,229, 173,108,2 244, 131,203,120 
370 DATA 16,254,48.4,6,66,16, 254,211,254 

*71 DATA 6,62, 52,239 5,175 60420542 , 194 

372 DATA 12,172,927,221,25,6,49,62,127,219 
373 DATA 254,31,2 208, 122,60, 194,246, 172 وه و‎ 9 
374 DATA 16,254,201,245,58,72,92,230,56,15 
375 DATA 15,15,211,254,62,127,219,254,21,251 
276 DATA 56,2,207,12,241,201,20,8,21,247 

377 DATA 62,15,211,254,3 A3,55,172,92 2,219,254 
378 DATA 71,220,352, 246,2,79, 191,192,205, 22% 
279 DATA 173,48, 250,23,21,4,16, 254,43, 124 

Z80 DATA 101,52,249,205,919,177, AB, 235,6, 156 
381 DATA 205, 219, 172,48 , 228,62 198, 184,48,22 
382 DATA 36,32,241,6, 201,205,22z,172,48,213 
*B* DATA 120,254,212,48,244,205,222,172,208,121 
384 DATA 238,2,79,28,0 6,176,24,21,8 

385 DATA 22,7,40,15,221,117,0,24,15,20* 

S86 DATA 17,173,192,121,51,79,19,24,7,72 

387 DATA 126,0 ,173,192,221,25,27, 8,6,178 


X88 DATA 46,1,205,219, 173,208, 62,203,184,203 
389 DATA 21,6,176,210,194,173,124,173,1023,122 
X90 DATA 179,22,202,124,254, 1,201,205,722,173 


291 DATA 200,62,22, 61,22,255,167, 4 200,62 

A972 DATA 127,219,254,21,2708, 169, 250,22, AO, 243 

agn DATA 121,47,79,230,7,046,8,211,254,55 

ARA DATA 201,0, o ۳ ۷ج‎ eg OO 

400 LET settrack=44000: LET nexttrack=4400%8 

410 LET load=44006: LET &savecado09: LET track=43900 

AO LET buffer=30000: LET bufflenth=5120 

440 DIM dF OSA: DIM gF O9) 

470 FRINT AT 10,33 "1. Save Disk to Tape";AT 12,34"2. Load from 
Tape to Ae E 14,23"3, Change Drive t — Now "s FLASH Ladra FL 
ASH OAT 146,235 "4. tnetructians sr 1 و8‎ An", Return to RAMdisk" f 
T 20 "Press. a key" 

4930 IF INKEY#e" 1" THEN FAUSE os GO TO 1000 

490 IF INEEY#2 "5" THEN GO SUB BOLO 

WOO IF INWKEYSXz"2" THEN GO TO 2000 

23910 IF INHKEYSx"A4" THEN GO SUE ZOOO: RUN 

wae. IF INKEYSXz"Z" THEN FRINT #4: GO TO 44 PRINT #4: NEW 

uo GO TO 470 

790 PRINT #4: GO TO An PRINT #4: NEW 
1000 REM Saving Disk to Tape 
LOO IF INKEYS< 2°" THEN GO TO 1010 
1040 PAUSE BO: LET numbered 
1050 PRINT AT 1O,O¢d#sAT 12,0:"Inetall disk in drive "scr ۰ ۰ "Flac 


e fr 
AUSE 
1060 
1070 
LET 
1080 
10910 
LET 
1100 
1110 
1120 
$ num 
lloc 
1140 
1190 
"000 
010 
Ot 
che 
aA us 


"ORO 
2040 
r si 
oC) 
A060 
2070 
2081 
2090 
2100 
me 
A110 
M 1; 
key" 
TO 6 
IL 
LET 
21450 
2440 
AE Ae 
luo 
d in 
2160 
2170 
AQOQO 
A010 
O20 
disk 
OX 
eu a 
eu, 
SOM) 
to 


OSC 


esh tape in recorder" o "Start recorder...and press a key": P 
Q 

BEEP 5,20: PAUSE SO! 
IF number awh THEN LET 
ONS EARS CHI dem) i 
PRINT AT io,O0x:d* 

LET gel: FOR nebuffer tê TO buffer+rios 
q-g*i1:s NEXT n 

IF mnumberzo THEN LET g#="Directory” 
IF CODE g£zoó OR numbers=tpd THEN GO TO 4000 
PRINT AT 18,lad#¢ TO 96) 4AT 18,1la"Saving "QE" 
Der 

RANDOMIZE UBR 44200 

LET Number =number+ongi de 

PAUSE 2004 GO TO 1060 

REM Loading tape to Disk 

PRINT AT 19,08 LET numbers: GO SUB 7500s LET sidesPEER $00 
LET tracks=PEEE S002 1: IF tracks=0 THEN PRINT "Wrong format, 


GO SUB 7900 
Side=FEEK &oO20s LET tracks=PEEK 
LET tpdstrackssseicdae 


0021 


LET QF (g) =CHRE PEER n 


@ track# 


ck disk, anc Fress any key to re-start": PAUSE O: RUN 
PRINT AT 1000 dt: PRINT AT ló,is"Start tape & leave running 


PRINT AT Lil, ,l2s"Saving to Dri va# 
PRINT '" On this disk...Oides "ir 
de "sgtracks 

PAUSE gso 

LET mumber=0 

PRINT AT 9 ۵٩ 3 ) TO 64) AT 19,13 "Loading next Tracks"; 
PORE 44212,78: FORE 44213,173: RANDOMIZE USR 44200 
IF number=O THEN GO SUB 3120 

IF number=0 THEN LET gide=FEEK 300280: LET onsidesass 
LET trackssFEER 30021: LET tpd=tracks*side 

IF FEER 80000=200 THEN PRINT AT i19?,1sd£( TO 32) TAB An FLAS 
AT 19 "Loading to disk Completed": FLASH O'TAR 9:"Fress a 


tt ; dr: 


side''" Tracks pe 


(micde- 


ET 


: FOR n=l TO Ss BEEP «3,204 BEEF 5,10: NEXT ms PAUSE O: GO 


OHC 

LET geis FOR nzbufferct-2 TO buffer+ios 
geqtis NEXT n 

IF numberzoó THEN LET gê="Directory" 
GO SUB 7600 

IF number=O THEN GO SUB 3120 
PRINT AT 16,0sd€(0 TO 160) ٩۳۲۲ 16,1 
umb er" 

LET number =number tons i de 

GO TO 2070 

TNE Os PAPER 7: BORDER "Ze CLS 
PRINT TAB 9s "Instructions" ” 

PRINT '" This program has been designedto copy a complete 
to tape,and then to load the tape back onto another disk." 
PRINT '" This version (v2.1) will work on the TS20680.It us 
SpectkrunmROM m/c routine to SAVE and LORDheaderiess tape fil 


LET g£(g)sCHRE PEEK n 


u 
d 


"Saved u..." GE" om track 


? ۱ 


PRINT 
control 
PRINT 


The program also contains codefor a mini DOS used 


the disk system." 
The program saves to tape on 


° a track by track ba 


A Ma ` 

A060 PRINT ''" Press a key to continue"s PAUSE © 

S070 CLS : PRINT Although the program is trans-parent as to 

the type of drive that is used, care must be takento ensure tha 
t the same drive type is used for the subsequent load as was u 
eed for the initial save, ” 

2080 PRINT '" This is because the directory which defines drive 
type has not been modified to reflect a different drive type." 


X090 PRINT '" Therefore, although the disk format is for the o 
ne drive typethe system interface, in lookingat the directory, s 
ees it as another type. CRC errors will result." 


4100 PRINT '" Press a key to return to menu" 

5110 PAUSE O: CLS 4 RETURN 

120 IF FEEK 500204 bside OR PEEK Soo21z^trackse THEN PRINT AT 10, 

Oa dE AT 10,28 FLASH 15"Digsk format not compatible": FLASH o''" T 

ape save 1 وجو‎ ۲ ۰۳ "PEEK 200214 " tracks per side on “FREER 2002014 
" Side"g("s" AND PEER OGOO020-2)''" Disk formatted to:"'" "stracks 
4" tracks per side on "ssides" SGide"s("s" AND sicdezs2)''" Pres 
any key for restart": PAUSE O: GO TO 3122 

e421 RETURN 

aloe IF O INKEY#=" y" OR TINEEY#2"Y" THEN POKE £&0020,eides POKE Sook 
Ltpd: RETURN 

S130 RUN 

4010 LET weis LET dgi$z'"NoMonree "s: FOR nabutfer+ea TO buffer t7: FORE 
ny CODE GFN): LET xxi: NEXT n 

4040 FORE 50000,2200: FORE 44210,1: RANDOMIZE USR 44200: PRINT AT 
L2,O,dc#; AT 15,5: FLASH ls "Disk saved to tape" ' FLASH ۵ TAB 9; ۳ 
rese a key": FOR n=l TO 5: BEEF .5,10: BEEP .9,20:s NEXT n: PAUSE 
Os GO TO 6000 

6000 PRINT 844 GO TO O 

6010 FOR nzVAóAL "i10" TO VAL "21": PRINT AT n,NOT PIsct: NEXT n 

64020 PRINT AT VAL "TS" VAL "6" Disk copy completed"''"Press P 
key for RAáMdisk menu, or another key to copy next disk" 

6030 PAUSE NOT FT 

6040 IF INEEYE 2"F" AND INKEYXS;"p" THEN RUN 

6050 PRINT #4: GO TO 4: PRINT #4: NEW 

7300 REM Load a Track 

7910 FOE tracksnumber: RANDOMIZE USR settrack: RANDOMIZE USR lo 

ad 

70640 RETURN 

7600 REM Save a Track 

7610 FOKE track,number: RANDOMIZE USR settrack: RANDOMIZE USR sa 

ve 

7620 RETURN 

7630 STOF 

3000 INK Os PAPER 7: BORDER 7: CLS : STOF 

O10 INPUT "Drive Oto 3 7 "adr 

BOLO PRINT #4: GO TO dr 

BOSO RETURN 

(0999 TOF 

9000 CLEAR : LET odz4s PRINT AT 15,9: "SAVE ROUTINE"''" Frese ""D 
۲۲ key to gave to disk," '"" Qr ""T"" key to save to tape": PA 

USE o 

Golo IF INKEY#e2"t" OR INKEYXEz"T" THEN LET ode? 


OOS PRINT Rod: SAVE "kapsav. BT" LINE 100: RUN 


Program Names Disk Copy (1 or 2 drives) v. 1.24 
Programer's Names George Chambers 


Sou cet Original Program 

keyed bys George Chambers 

Date Keyed: Toronto, Ontario, 1988 
Notes Larken utility Ccopyiz. B1] 


PROGRAM LISTING 


100 REM Disk Copy Frgm (v1.24) for the LARKEN system 

110 REM By G. Chambers 14 Richome Court 
Scarborough, Ont. CANADA MIE 2Y1 

120 REM Use to copy a disk with a l-e or 2-drive system 

130 REM Data statements contain Drive Control Code. 

140 REM For use with the DGk4o00 system of $5090 bytes/track 


using a DD drive i.e.dO tracks 

145 RANDOMIZE USR 100: OPEN #4, "dd" 

130 PRINT #4: LOAD "Move .Ci"CODE 32000 

170 RESTORE VAL "210" 

180 FOR n=VAL "63000" TO VAL "63047" 

190 READ a: POKE n,a 

OOO NEXT n 

210 DATA 195,48,246,0,0,0,0,0,0,243,205,98,0,201,50 

126 ,203 وش و 100,0,231,201,203,28,246,98,1760,92,90,29 DATA‏ 220 

220 DATA 0,205,123,0,::3,112,22,17,156,224,1,0,20,2327,176 

2840 DATA 195,358,246 

280 LET trac=VAL "22726": LET loadbuf=VAL "62000" 

290 LET namesVàL "576808" 

200 BORDER FI/FI: PAPER FI/FI: CLS 

410 GO SUR VAL "Goo" 

A420 PRINT AT VAL "2",VAL "7"s INE VAL "2" PAPER VAL "6"; "LARKE 
لا‎ DISK UTILITY”; PAPER ۳۲۸/۱۳] و و‎ TAB VAL "A": PAPER VAL "6"; "Disk 
Copying-1 or 2 Drives"; PAPER VAL "1",,TAàB VAL "7"; PAPER VAL "6 
"s "By George Chambers" 

uu INE VAL "Ai PLOT NOT PI VAL "108": DRAW NOT FI,VAL "62": D 
RAW Vel "asw a NOT Pir DRAW NOT FI,VAL "-62": DRAW VAL "—259",NQT 

FI 

A40 INE VAL "6": PLOT VAL "8" ,VAL "114": DRAW NOT PI,VAL "So's 
DRAW VAL "2590" ,NOT PI: DRAW NOT FI,VAL "—-5O0"s DRAW VAL "-2380",NÜO 
T ۳۶ INK VAL "7" 

ew PRINT '''"Install the disk to be copied"'" in the originat 
ing Drive"'",,.., then Press a key"': PAUSE NOT FI 

292 INPUT "Enter the Orig. Drive No. (O14) "30drv 


A PRINT #4: GO TO Odrv 
494 INPUT "Enter the Dest. Drive No. (0-4) "sDdrv 

D PORE VAL 27658., VAL PB": LET rgs" "N"; INPUT "Select files t 
o save? Y/N" sr# 

A60 REM Picking pgm names from buffer (Track ©) 
270 POKE trac, NOT PI: RANDOMIZE USR loadbuf 

2830 PRINT AT VAL "LO" NOT Fisge#’c#' cts TAB VAL "9" "Files on Dis 


290 FOR nz FI/FI TO VAL "90" 
400 LET esr 
410 IF PEEKE (namet2) =NOT PI THEN LET emmel: LET n=VAL "9o": GO 
TO VAL "480" 
420 IF PEER (Game-PI/FI) VAL "254" THEN LET name=nametVAL "ZA: 
30 TO VAL "410" 
420 FOR mePI/PI TO VAL "9" 
440 LET d£in,m)sCHRE PEEK (nameem) 
480 NEXT m 
460 LET namesname+rVal. "x4" 
470 PRINT AT VAL "1S", VAL "LL" 0 (nN)? 
480 NEXT n 
490 FAUSE VAL "NãO": PRINT AT VAL "14" ,NOT ۳۳1 23 انا‎ TAR VAL "14 
"seg" files on disk" 
SOO DIM ۴: (VAL "nm" 
wae PRINT AT VAL "LEA" VAL "7" "File being copied" 
wel FOR ۳م [ شاد‎ ۲ TO e 
Cow PRINT AT VAL "16" NOT PIs Ce 
S40 LET fXsdéÉ£n) 
S45 IF FEI ۰ ۲۲۲/۲ THEN PRINT AT VAL "21",NOT Pisc#sAT VAL "21", 
VAL. HRU 1 "Copy ۱۱ ۱1 n 1 + CH ۱۱ ۱ HU Y/N?" 
SAG LET SEY": TE ۳ r N” THEN INPUT TAB VAL "27"; BF 
S47 IF s¥CL)="N" THEN GO TO 680 
DO GO SUB OrgDrv 
qu PRINT AT VAL '"21",NOT PIs cs 
260 FOR a=PI/ZPIL TO VAL "9": PORE Onamta,CODE f# (a): POKE Dnam+a 
CODE f£(a): NEXT a 
3970 PRINT AT VAL "15",VAàL "LIN yg Fé 
380 PRINT #4: GO TO Odry: LET rt=USR indir: IF rtsz0 THEN GO TO 
rt 
S903 LET rtzUtsR Lodi: IF rts NOT PI THEN GO TO rt 
600 LET Tlen=FEEK VAL "“S4O002": LET passcFI/PI: IF Tlen> (PEERK Nb 
CS) “j THEN LET Pass=sVAL "2" 
610 GO SUB DesDrv 
420 LET rtJ SR Svnams IF rts NOT PI THEM GO TO rt 
AQ LET etsUSR Svdatas IF ret NOT FI THEN GO TO rt 
640 IF pass:-cPI/FI THEN GO TO VAL "670" 
650 GO SUB OrgDrvs LET rtzUSR Ld2s IF rt NOT FI THEN GO TO rt 
660 GO SUB DesDrvs: LET rtzUSR Svdatas IF rt NOT FI THEN GO TO 
"m 
670 LET rt=USR Svend: IF ۳۳۰ NOT FI THEN GO TO rt 
480 PRINT AT VAL "18",VAàL "i14"yng"  copied/skipped" 
690 BEEF VAL ۲۰۳ VAL "10": BEEF VAL ".1",VÀL. "10" 
700 NEXT n 
705 PRINT #4: GO TO O 
710 FOR nsVAL "lo" TO VAL "21": PRINT AT n NOT Pise#s NEXT n 


i 


720 PRINT AT VAL "TS", VAL "6"; "Disk copy completed"''"Press P 
key tor RAMdisk menu, or another key to copy next disk" 

730 PAUSE NOT FI 

740 IF INKEY#" °F" AND INKEY#<>"p" THEN RUN 

790 PRINT #4: GO TO 4: PRINT #4: NEW 

goo LET Mem=VAL "S4800"s LET OwkaeVAL "34700": LET Dwka=VAL "AA 
7590": LET Onam=VAL "4599" LET Dnam=VAL "T4649" 

810 LET indirsVAL "2000": LET LdisVAaL "2003": LET Lda@=VAL "32 
O06": LET Svnam=VAL ':32009"s LET SvdatazVAL "2012": LET Svend=V 
AL "EOI": LET RenameVaL "201g" 

820 LET OrgDrveVAl "870"s LET DesDrv=VAL "90": LET Nbes=VAL "3 
40084 LET Beizge=VAL ۲ 

40 REM Dien Esizes3120 Nbcs=7 oben Beizes20590 Nbce-14 

840 FOKE Nbes, VAL "7": PRINT #4: FOKE Beize, MOL "3120" 

geo DIM AF (VAL "9O" VAL. P9): LET cite 

Bon RETURN 

870 IF Odrve2Ddrv THEN PRINT #4: GO TO Odev: RETURN 

880 INFUT "Insert Source Disk-Fress ENTER": LINE af: RETURN 

890 IF OdrvacDdrv THEN PRINT #4: GO TO Ddrvs RETURN 

QOO INPUT "Insert Dest'n Disk-Fress ENTER", LINE af: RETURN 

910 STOP 
8999 STOP 
9000 CLS : LET od=44 PRINT AT 18,95 "SAVE ROUTINE"''" Frege ۸۲ 

key to save to disk,"''" op ""T"" key to save to tape": PAUS 
EO 
9010 IF INFEVY#="t" OR INKEYxXusUUT! THEN LET odzz 
9020 PRINT sod: SAVE "copyl2.B1" LINE 100 
90:0 PRINT tod: SAVE "Move .CI"CODE 32000,1000 


Program Names Format A Disk 
Programer's Names Larry kenny: George Chambers 


SGourcet Original program 
keyed by: George Chambers 
Date keyed 1°88 

Noten Larken utility 


PROGRAM LISTING 


10 RANDOMIZE USR 1004 OPEN #4, "dd" 
SU CLS s FRINT : PRINT 'LAREEN FORMAT and COPY PROGRAM" 
AO CIRCLE 192, 100,10 
40 PLOT 162,70: DRAW 0,408 DRAW 60,0: DRAW O,-—-60: DRAW “60,0 
YO PLOT 190,743 PRINT #4: DRAW 3,14, 1 
60 PRINT #4: CIRCLE 202,90,2: PRINT #4: CIRCLE 172,100,2: PRIN 
T #4: CIRCLE 172,90,2 
79 PLOT 162,110: FRINT #4: DRAW 5,6,1: PLOT 162,111: PRINT #4: 
DRAW 4,4,0 
75 PRINT AT 6,214 "LARKEN" 
Bo PRINT AT 8,03; "Select One" 
90 PRINT AT 15,03 "Format a New Disk 1 ۵و۰‎ 17,0; ” Copy entire 
Disk ‘A'm AT 19,0; "Save this program "Ain PRINT "to Disk" 
100 INPUT "Enter 1,2 or 3 "s LINE af: 
110 IF له‎ Ain THEN GO TO 1040 
120 IF age"1" THEN GO TO 160 
1:10 IF af="2" THEN GO TO 360 
i40 GO TO 100 
150 STOP 
1604 CLS : PRINT "FORMAT PROGRAM for LARKEN DSK400" 
170 POKE 235638,04 PRINT s: PRINT " "* FLASH 1s" Enter Disk 
Name" 
175 PRINT "Press STOP (SS “AO to end name"s PRINT 
LBO: PRINT "Disk Mame s: ": 
190 LET ms41000 
200 LET ate INKeYés IF IMEKEYS:z'"" THEN GO TO 200 
219 IF CODE atso THEN GO TO 200 
Zell BEEP .02,1 
voo IF CODE at=12 THEN PRINT CHRE B: CHRE 22sCHRE 8s: LET m=m-1s 
GO TO 280 
240 IF CODE af=226 THEN POKE m,0: GO TO BOO 
wo FOKE m,CODE af 
260 PRINT adf; 
270 LET ۳۳ i 
280 IF INKEVES ST" THEN GO TO 280 
299 DU TO 200 
400 FORE met BEEF .1,20: BEEP .1,20: PAUSE 50: CLS 


S10 GO SUB 7950 REM Set Parameters 

A19 REM PRINT "Drive Faranetera's PRINT : PRINT "Drive #",cdv-1, 
"Head Speed",h,"No of Sides",a,"No of Tracks" ,numtr ks 

316 LET hee: PRINT "Drive Parameters’: PRINT s PRINT "Drive #", 
dv-1,"No of Sides",a,"No of Tracks per side",numtmks 

218 PRINT : PRINT " Remove WRITE PROTECT Sticker" 

A0 INFUT "Ok to Format Cy/n) T3 LINE ate IF agen" OR &$z"N' 
THEN BEEF ,1,10 BEEP 414,04 RUN 

wal RANDOMIZE USR 40000. REM Format 

440 REM CLS : BEEF .1,10: BEEF .1,10: INPUT "Save Format Frog t 
o Disk 7 "sat: IF a£z"n" THEN RUN 

S41 CLS : BEEF 1,10: BEEF ,1,10: INFUT "Any more disks to Form 
at? (Y/N) "¢ LINE ats IF ate"y" THEN GO TO 160 

dd REM GO TO 1040 

460 GO TO 10 

270 REM 

2830 CLS s PRINT "=== LARKEN ELECTRONICS ----" 

AGO0s PRINT AT 2,44"Disk Backup Program" 

400 PRINT s: PRINT " This program is for Copying an entire di 
sk between 2 drives. The drives should have the same number of tr 
acke and sides." 

4035 PRINT ۶ PRINT "Remove WRITE PROTECT Sticker " 

410 GO SUB 920 

420; PRINT 

430 INPUT FLASH i:"Onrigin"sg FLASH Og" Drive (O-3) "sar IF a23 T 
HEN GO TO 430 

440 BEEF „1,10: LET azarl: LET org=2"a: 

450 PRINT "Copying from Drive "sais 

460 INFUT FLASH i1:"Destination"s FLASH Os! Drive (O-3) “sb IF 
Dx THEN GO TO 460 

470 BEEF .1,10: LET babel: LET cdeszs2"^b: 

480 FRINT " to Drive "yif 

490 PRINT s: PRINT " Sides — "aseicd,"Treacke = “yNumtrks 

WOO FORE 23692,255s PAUSE Sos INPUT " Frege any key to copy " 
LINE af 

IO LET savez400181 REM save buffer to disk 

QA LET loads40012: REM load disk into butter 

wed LET Sprt=40009: REM Send Drive data to port 

S40 LET setrtz=40008: REM move head 

wu LET nextrkz40006: REM inc trac pos or switch sides 

HOO LET tracmaxxo0s REM trac # MC variable 

2570 LET Deve4ah01le REM Drive # MC variable 

80 LET Treg=18: REM FDC track register 

390 FORE tracyO: POKE drv,org: RANDOMIZE USR setrk 

600 PAUSE SOs FORE drv,dess RANDOMIZE USR setrk 

410 LET orgTsO: LET desT=0 

620 PRINT 4 PRINT "Block # '"; 

620 FOR aso TO (GNumTrks*2)-—1 

640 PORE drev,orgs RANDOMIZE USR Sprt: PAUSE 20: RANDOMIZE USR I 
a Cl 

OO PAUSE 20s FORE drvscdess RANDOMIZE USR Sprt: PAUSE 40: RANDO 
MIZE UBR save 

660 RANDOMIZE USR load 

670 FORE traca: OUT Treg, desT: PAUSE 20: RANDOMIZE USRA nextrks 


IF sid=1 THEN RANDOMIZE USR nextrk 


690 
690 


LET desT=IN Treg 
POKE drvsorg: RANDOMIZE USR Spreti PORE tracs,as OUT Tred , org 


T: PAUSE 20: RANDOMIZE USR nextrk: IF eidel THEN RANDOMIZE USR n 


ex tek 


700 
710 
7 
7X0 
740 


780 
760 
770 
780 
790 
aoo 
gio 
OZ 
ES 
Q4 
93530 
2360 
D ZO 
BHO 
890) 
FOO 
FOS 
910 
DZ 
D A 
940 
9 to 
960 
9070 
DO 
ec) 
1000 
1010 
1020 
1030 
1040 
1050 


LET orgT=IN Treg 

IF eidel THEN PRINT (orgT*2)-2s" "ge LET aart 

IF eide/ THEN PRINT ag" ۶ 

NEXT a 

PRINT s: PRINT : PRINT " FINISHED ": BEEF 1,20: PAUSE O: RUN 


REM ss DRIVE PARAMETERS ss 

INPUT "Drive O to A 7 "“sdve 

IF dvoS THEN GO TO 790 

PRINT #4: GO TO dv: LET dvedv+l 

LET ae2“dve POKE 42 201,a 

PORE 4X31:22,0: REM G80 12-1 20-2 SO 

REM INFUT "Head speed 6 12 20 KO MS ? "gh 

REM IF hee OR heise OR held OR heo THEN GO TO 870 
REM GO TO 840 

REM IF h=z6 THEN LET aed 

REM IF hzs12 THEN LET asi 

REM IF h=20 THEN LET asa 

REM IF h=ã0 THEN LET asm 

LEIT amo 

PORE 42312, 

INFUT "Number of Sides 1 or 2° “ga 

IF asi THEN GO TO 960 

IF az THEN GO TO 960 

G0 TO 920 

LET eideas: POKE 42310,a 

INFUT "Number of Tracks 35,40 or 80 "sNumteks 
PORE 4X511,Numtris 

RETURN 

STOF 

RANDOMIZE USR 100: OPEN #4, "dd" 

FRINT #4: LOAD "Heode. Cl "CODE 

FUN 

REM asss SAVE TO DISK Ss 

PRINT #4: SAVE "FORMAT, BL” LINE 1010: PRINT #4: SAVE "Hcode 


1 CODE 40000,2000: BEER ,5,105 RUN 


1060 
1070 
AUSE 


REM 333* SAVE TO TAFE use 
FOR s=1 TO 3: POKE 237Z6,181: SAVE "FORMAT. BL" LINE 1080: P 
40; PORE 22726,1891: SAVE "Hcode.CI"CODE 40000, 2000: FALSE 4 


Os: PRINT ۳۳۲ 4 NEXT en STOF 


1080 
1090 


LOAD "Hcode.Ci"CODE 40000 
FUN 


Program Names ASCIT Search == Larken Version 
Programer e Names Francisco Fhinos David Solly 
Sources YG Mag., March 1989 & Original 
keyed bys David Selly 

Date keyed: 14 April 1989 

Notes Spectrum Program 


PROGRAM LISTING 


10 BORDER ©: PAPER Os TNE 7s CLEAR 26499: CLEAR و‎ RANDOMIZE US 
m LOGO! LOAD "as سا‎ CODE EON 
SO PRINT FLASH ۱و1‎ 10,12." LOAD "s GO SUB X20: RANDOMIZE US 
100: LOAD mgt", EI "CODE 268005 CLs 
40 GO SUE 400: PRINT AT 8,8; "NAME :"sb#sAT 10,0: BYTES "scs FA 
LGE Os CLS f LET هتسه‎ LET bea 
20 CLS ¢ IF Cak7O4) 2655-9 THEN LET as Zén 
40 LET possas FOR yeO TO ala FOR xed TO Ai 
62 IF ۳۳۲ posita AND ۳۳۳۳ pos< 1465 THEN PRINT AT yax CHRE (PEE 
E pos) 
eX LET posspostl 
63 NEXT xt: NEXT y 
70 PRINT #0; AT 1,04 "SCREEN Dr "gag e g atO, LET bear LET u=0: 
LEI wm 
80 INE 7:9 PRINT AT yaxa FLASH Os OVER tan " 
PO IF INKEY#@s po AND «A1 THEN LET xsmekis LET Debt) 
190 IF INKEYXz"o" AND xO THEN LET xexeds LET b=b-l 
110 IF INKEY#="q" AND yro THEN LET yzy-1: LET b=b-32 
120 IF INKEYdXs"a" AND yal THEN LET yeyris LET bsb tTa 
130 TF ۲۳۳۳ ۲ ۲2۵ ۲۳۱۲ THEN LET aza+7044 GO TO SO 
140 IF INEEYSz'"t" THEN GO TO 220 
150 IF INEEyE="do THEN INFUT :"DIKECTIONs"sas GO TO 30 
160 IF INFEY#="s" THEN CLS s: LET ndend-".02!'"s RANDOMIZE USR 100 
: SAVE nmECODE asc: RANDOMIZE USR 100: LOAD n€CODE : RANDOMIZE USR 
1600s POKE 8324,vs RANDOMIZE USR 232002 RANDOMIZE WSR 100: MOVE 
۲۱ bx: PRINT AT 10,1343 "SAVED": ۳ 
170 IF INKEYX-'"I" THEN CLS : GO TO 1 
LBO PRINT HAAT ولا‎ 1۱۵ ag my at PON 
190 INK Sa PRINT OVER 1i FLASH LAT y,xg" "¢ FLASH O 
Vo PRINT SOOT Gala! "SAT 0,04 OVER Og "DIRECTION: "aba" -CHRE 
"FEE b 
210 GO TO Du 
220 PRINT #02 AT 1,235 "TRANSLATE" 
md TNE Dn PRINT AT wan FLASH is OVER lg” " 
240 PAUSE Os LET ate NEE Y$ 
eso IF CODE af=1% THEN FRINT #0: AT 1,233" "s GO TO 170 
260 IF CODE af=12 THEN IF لسن بر‎ THEN LET x=x-ls PRINT OVER 1; FL 
AGH OAT ۷۰۳۱ ۲ "s LET bebei: GO TO 230 


270 PRINT AT wan OVER Gy aft 
280 PORE by, CODE ad 
290 IF xeml THEN LET xseris LET ها‎ i 
A00 PRINT OVER 14 FLASH OAT ۷ زو‎ " " 
410 GO TO 230 
20 INVERSE 1: FRINT AT 21,04" Enter program name in full Va 
INPUT be: INVERSE © 

oO) LET n$sbXOLl TO (LEN D-52508 RANDOMIZE USR 10045 MOVE he, mit! 
Cl": RETURN 
A400 RANDOMIZE USR LOO: PORE 200,92265 L 
40% RANDOMIZE USRA 1004 FORE G(:200,]0527*: سا‎ 
HO LET certame] 
406 RANDOMIZE USR 100: PORE ]8200,0224:5 LET veUSR 110 
407 RANDOMIZE WSR 1005 PORE 8200, 832352 LET deUsSR 110 
409 LET vsv-296*cd 
WOO RETURN 


I cwUSR 110 
ZI deUSR 110 


mm 


The following machine code is loaded at address 23300, 


Oey‏ ی ی 


Contd LPS 


sna 


tent 


ae CH C A3 


OS 
23304126 
PARA LT 
aidé OVE 
Saal? 120 
eu EC 
ant 1 99 
foe IB 
nl LO 
eh d an 


ris 
nus ho) 
a] AO) 
oe با‎ O 
usn 60 
we ZO 
ooo ا‎ 
a AIO 


a Oe) 


The following machine code ie loaded at 


see OG 


"t T AO 
23302 


nene 
POCA © و‎ 


SE )4. 
Léi, KM Ki? 3589 
a TEA 
23307 

da vati 
23309 


us À O) 


a À 


“a or a 
p * E E ae 


1 Lad 
CA rm "9 


Bug muit ا وة‎ 


Em Ki ^ 


We kk: 
as Km » اد‎ 


VK CET 7 
23217 
eso d t) 
ADR, 


foy ma ma qe 
PARE 


A OU 
99 
Q 
205 
126 
O 
03 
120 
C) 
195 
186 


acdcdecess 


¢ nn ۰ 
ا‎ 4 


OO, 


Program Names Larken Disc Editor 
Programer’ s Names Larry Kenny 

Dour Original Program 

keyed bys Larry Kenny 

Date Keyed: Navan, Ontario, 1988 

Note: larsen DOS Utility Program 


PROGRAM LISTING 


a REM --LARKEN DISK EDITOR» 
A REM Ey Larry Fenny 
D REM c LARKEN ELECTRONICS 


é 
7 REM Save to Disk at 6000 
Gi 


10 CLEAR : BORDER ©: PAPER O: INE 7: CLS : GO TO 40 

20 CLEAR 4384004 PRINT AT 7,43 "LOADING..." RANDOMIZE USK 100: 
OPEN #4, "ded" 

20 PRINT #4: LOAD "Ecit.Ci"CODE 44000 

25 PRINT #4: LOAD "EDbas.CI"CODE 60000 

38 PRINT #4: POKE 8218,62700-2296:s REM Addr of Window Chars Set 

40 LET Serolle44200 

QO LET Serolg=z44400 

60 LET ۳ rs44600 

70 LET Tracs4zeoo 

GO LET Drewvs4qz9)01 

PO LET Carve441 99 

100 LET bufzszoooo 

110 LET Settrki=44000 

120 LET Nextek #44003 

120 LET Formatas45000 

140 LET Loacdm44 004 

150 LET Saves adnot 

160 LET peeekz4401:2 

170 LET Nedd=429 10 

180 LET Ntrekm4x911 

190 LET Hspd=43912 

A00 LET peekwzAgdzo20 

210 PRINT #4: 60 TO PEEK Celery 

220 BORDER O: PAPER Os INE 7: CLS 

220 PLOT O, SO DRAW 255,0: DRAW O,140: DRAW -255,0: DRAW O,-140 
240 PLOT 0,145: DRAW 299,0: PRINT AT 2,44" LARKEN DISK EDITOR" 
uw PRINT AT 6,43 "l Edit data on disk"sAT 7,44 "2 Read Disk He 
adere"sAT 8,43"3 Change Head Speed AT (4 ۲۲ Reformat Single 
Black "AT 10۸048 ۰5۵ Initialize Directory H 


260 PRINT AT 11,45"6 Map out Bad Blocks"sAT 12,44"7 Change Di 
ek Name"sAT 13,4" Cat/Goto Drive (Now "SPEER Cereve") "SAT 14, 


4:"99 Display Track Map" 

270 PRINT O; Press 1 to is 
230 IF INKEYSEXxs"" THEN GO TO 280 

430 INFUT 4 

SOO IF INKEY#2" 1" THEN GO TO 800 

S10 TF INHEYEXz"2" THEN GO TO 440 

S20 IF INKEYXs"X" THEN GO TO 1470 

230 IF INKEYXz"4" THEN GO TO 15890 

440 IF INKEY#=2"5" THEN GO TO 1780 

250 IF INEEY#e" 6" THEN GO TO 2470 

260 IF INEEY£€z"7" THEN GO TO 1890 

S70 IF INKEYXzs"G" THEN CLS : GO TO 400 
Bo IF INEEYE "Qu THEN CLS s: GO TO 2270 
490 GO TO 270 


400 INFUT "Drive # O — 4 و۶ و‎ LINE d$: IF d#="" THEN GO TO 420 


410 IF CODE dë OR CODE dE THEN GO TO 400 
420 PRINT #4: GO TO VAL df: FORE cdrv,VAL cdi 
420 PRINT #42 CAT Diet PAUSE Os RUN 

440 Clos PRINT " DISK DATA-HEADER READER" 


450 PRINT : PRINT " This displays the file info saved on 


h block along with the data" 

460 PRINT ¢ PRINT "BLE ~ The block number on disk" 

470 PRINT 4 PRINT "NAME = The file name of the data" 

430 PRINT ۷ PRINT "START - The start address of the code, 
tor code only" 

490 PRINT 4 PRINT "LENGTH = The total length of the file." 


Gate 


Leed 


WOO PRINT s PRINT "LINES ^ The auto start line * for Basic pr 


ont 


ogs only. 45525 means a non autostart prog"! 
SÃO PRINT '"'s' to pause = ‘a’ to quit" 


ad LET chez: INFUT "Send to (Screen or (GCorinter "s; LINE a 


wat IF ate"p" OR af="Pr THEN LET chad 

Boo CLS : PRINT ۴۵۸۲۱ "BLE NAME START LENTH LINES" 

340 PRINT BR gee aa ee ee a do ms H 

WO PRINT Sog" = Quit 8 سس‎ paume Ent- Cont" 

Seo PORE Trac, O: RANDOMIZE USR Settrk: RANDOMIZE USK load: 
eicdsPEEkK SO0204 LET tkePEER 500% 

70 FOR t=O TO thee: 

WON IF INKEYÆ=" qg" THEN RUN 

SO IF ۱۱۳۷۰ "sS" THEN GO TO 620 


LET 


600 IF INKEYS=CHRE Lã THEN PORE trac,ts RANDOMIZE USR settrk: G 


O TO 620 
410 GO TO 6400 
G20 RANDOMIZE USR Loa 


€ 50 TF PEER 256094525 THEN RANDOMIZE USARA Serolãa PRINT AT 20,03 


640 PRINT #eh PEER (butti) "TAB ۶ 


650 IF PEEKE (bufi) <20 THEM : IF FEEK (buf+ild<>t THEN PRINT Sch 


PRINT fecho "Block Number Error on Block "st 

660 IF PEEK (hufi) THEN PRINT #ehs GO TO 730 

670 FOR as (buttkäi TO (buf-10) 

680 PRINT #chs CHRE PEEK as 

690 NEXT a 

700 PRINT feng” "s TAR ۸ PEER (buf+12)+2568PEER (Duf-rix)" 


Ha 
d 


710 PRINT sch: TAB 2O, PERK تا‎ +ABOXPEER (buf a3) g" ta 

720 PRINT Schi; TAB 26; PEEKE (buf +17} +236*PEEE {buf +18) -+i 

720 IF Sid#=1 THEN LET tekt+ies PORE Trac, (PEER trac) +1 

740 RANDOMIZE USR Mextrk 

780 NEXT t 

760 BEEF .1,190 INFUT "End of Tracks "s LINE ada RUN 

770 STOF 

BOO CLS: PRINT PAPER 7; INE Og"ADDREG FEEE CHARACTER " 

Bio PRINT ۷۲4۶ OPEN #35,"wO's PRINT #4: INPUT SO,O0,22,51,20* PRIN 
T # FORE 16014,15: PRINT #4: CLEAR O 

B20 PRINT #33" BLOCK EDITOR" 

B20 PRINT #83 69 COMMANDS ۲ ¢ ۲ emme cc نت‎ mm ma une a cem HO ENT- SCROLL'"'" SFO 
Gtep"'" Ne New Num"'" C- Char Str£"'" G- Goto Addr"'’" F- Find N 
um" '" Be Save Blok"'" Qe Main Menu” ’ 

3940 PRINT #33 ''" <2 EDIT LINE"''"-BUFFER INFO-"'" 30000 START" 
۰ "۰ S5114 END" 

Bão PRINT INK 74 PAPER 10۸1 18,04" " 

Déco LET meless INPUT "Edit which Block F "stes IF tran THEN GO 
TO 890 

aeos PORE trar, tri RANDOMIZE USRA settrky PRINT AT 1,0;USR load 
SSS PRINT #44: GO TO BEER ۷ 

Qoo PRINT #232" Block = "a PEEK Tracs 

Dap PRINT INE 7s PAPER LAT 15,0" à 

900 PRINT AT 15,0s: INK 7: PAPER 8 

900 RANDOMIZE USK 600004 RUN 

910 REM --Compile start here -- 

90 LET L=3800004 LET seroll=442008 LET Trac=4359004 LET sette kad 
4000: LET savez44009 

"AO IF PEER 2360925 THEN RANDOMIZE USR Scrolls PRINT AT 20,04 
940 FORE 225692, 2535: PRINT LISTAR 7 PEER 1s TAB 12$: 

950 LET niels GO SUB 1290 

960 IF TNREY#s" " THEN (GO TO 960 

970 LET ate INKY: IF axXzc"" THEN GO TO 970 

930 IF aXzc"n" OR ae$z"N" THEN BEEF ,05,10:s GO TO 1220 

990 IF adele" OR aX-"G5" THEN BEEP .1,10: INPUT "Save back to Di 
ek (y) Pass IF $e tY" OR g&e"y" THEN GO TO 1100 

1000 IF af="q" OR at=" Q" THEN GO TO 1450 

1010 IF at="c" OR afe g? THEN BEEF 05,10: INFUT AT 0,08 "Charact 
er or String "sns GO TO 11350 

1o020 IF a£$z"g" OR at="6" THEN BEEF .O5,108 INPUT "Enter New Addr 
ess "rl: PRINT AT 19,05: FOR ami TO 73 RANDOMIZE USA Scrolls NEX 
T as PRINT AT 15,088 GO TO 940 

1030 IF azz'"f" QR a=" PF" THEN GO TO 1040 

1025 GO TO 1060 

1040: BEEF 05,10: INFUT "Search for which number "sbs PRINT #0; 
FLASH 1; "Searching for "sb: FOR asl TO 55120: IF PEEK a<>b THEN 
1 NEXT as INPUT "Sorry not found"s LINE at: GO TO 1060 

1050 INPUT i: LET leas FOR ami TO 7: RANDOMIZE WSR scrolls NEXT 
a: PRINT AT 15,03: GO TO 930 

1060 GO TO 1080 

1070 LET lzl—1: PRINT AT 23-(PEEK 22689) و‎ 4 

logo IF Lesoood OR 1255114 THEN INPUT "Address out of Range ng سا‎ 
TNE ate LET adz"g": GO TO 1020 

LO? LET lzi-i: GO TOGO 


1100 REM «###8 Resave Tracks 
1119: RANDOMIZE USR Settrek: 
1120 GO TO 1480 

11230 GO SUB 1410 

1140 LET 1-INT v 

1150 PRINT 


RANDOMIZE USK save 


1160 
1170 
11800 
1190 
1200 
1*1 

i210 
1 
1280 
1:240 
1230 
1260 
1270 
1200 
1290 
URN 

1300 
1310 
اا ی بل‎ 
l0 
L240 
150 
1:360 
1:570 
1280 
LEVO 
1400 
1410 
1420 
1420 
1440 
1450 
1460 
1470 
14900 
1490 
1500 
1510 
19:20 
19530 
1540 


NEXT 


PRINT AT 10,034 
as PRINT AT 15,01 
FOR asl TO LEN nã 
PORE 1 ,CODE ma) 
IF PEER 2356909255 
PRINT 1; TAB 7۳ 


"Au 
ai no COED ea 


NEXT as GO TO 
LET posf pkk 
G0 SUE 1410: 
INPUT "New Number 
FRINT AT 13,04" 
PRINT AT 5۵ و‎ (٩ ۲۱۸ TAB 
PRINT AT 24-—-poms,0 

DU TO 1070 

IF PEEK 


au 
a A 


۷ ۰ ke dAn 
ni es AA 


۳ 


FEEK Ke 
PE EE. 
PEEK 
PEER 
PEEK: 
FEE 
۳ 
PRINT t 
IF PEEK 
PRINT CHRE PEER 
PRINT AT 15,0; 502451 
LET vens LET m= Les 
LET vev+ (CODE SCREENS 
LET mzsm/10 

NEXT as RETURN 

GO TO 10 

REM -Compile End 
REM Mead speed سس‎ 
LET Hep cle Som 22 

CLS GC SUB 2750 
CLS 


۳۱1 
Trace 
nis294 
md E 4 
ni=249 
nmn ees 
1 


RETURN 


e 


1 


vas toras 


otter pap 


FOR ami 


THEN RANDOMIZE 
1 ۱ TAB 1 


AND FEE 


THEN PRINT 
THEN G 
THEN PRINT 
THEN PRINT 
THEN PRINT 
THEN PRINT 
THEN PRINT 


TO 6: PRINT " 


USR Bergomi is 
LET nisis GC 


PRINT AT 20,03 
SUB 1290: LET ls 


de 
CAR: 


LET nl-sINT v 
ni 


FORE ml on 


Phu n 
^6. P 


7 PEEK nl; TOR 1 GO SUB 1290 


nle245 THEN PRINT CHRE PEER nl: RET 


RE TURN 

1380 

"Empty Celi" 
"Track Used" 
"Blocks End" 
"Blek Start” 
"Celi Start"; 


Q TO 


1452495 THEN RETURN 

RETURN 
LET vee 

FOR aso TO 4 


GO SUB 1410: PRINT v: STOP 


(15 ,a)~48) em 


PRINT AT 4,03 "Currant Head Speed is "ir 


FORE Trac, QO: RANDOMIZE USR settrk: RANDOMIZE USR load 


LET Wee" O61 220280" 
LET he (FEE Hspe) segs 
PRINT ''"Enter O to X 


PRINT RECO gh£(h-104" MS" 


SSC i 
15950 


"20 MS",2, 


INFUT "Ent 


ap 
D " 


0 MS", 
Oto 4 


taes 


er 


, 


9 
1 


for new Head Speed" 


,"aborct",4 


"06 MS",O0,"12 M 


"EDS 


IF hee THEN GO TO 1530 


1360 


IF h=4 THEN 


BEEF 


BEEF RUN 


DE We e 
1570 PRINT #4; 
kr RANDOMIZE USK gavers 
1, BBO 


FOKE 8202,h: 
BEEP 


«Oy LO 


Ag e 
FORE Hepd,ht: 
FEN 


RANDOMIZE USR settr 


1590 
1600 CLS : PRINT AT وی و۵‎ REFORMAT a SINGLE BLOCK" 
1610 PRINT : FRINT "This will attempt to correct a bad block 
which may be either a Hard or Soft error." 
16:20 PRINT s: PRINT" Insert the Disk Editor disk in drive O so t 
he Format Code can be Loaded, "'' 
1630 PRINT "Enter Disk Interface Type"''"Larken","L", "Ramex", "R" 
; "Aer co" i ۱ چم‎ ۱ "(1 iger " ۱ "jr 
16:54 PRINT ''"If Format code has already been loaded once since 
povwerup enter m~ CEM 
1640 INPUT “Enter Interface Type "gar 
1650 IF af="A" OR at="al THEN LET t#="a"s GO TO 1700 
1660 IF afs L" OR a#ž="1" THEN LET tê="1": (GO TO 1700 
1670 IF as="O" OR afz"o" THEN LET txs"o": GO TO 1700 
1680 IF afea RP DR afe er" THEN LET tbs'er"; GO TO 1700 
1685 IF af="z" OR af=" Z" THEN : GO TO 1720 
1690 GO TO 1640 
1700 PONE 227209,1002 PRINT #42 LOAD "FonrmiT.QOG"M-t£cODE 495000 
1710 IF PEER 537:220:-101 THEN CLS s PRINT AT 10,89" ۳ ۵۳۱۸ ] با م‎ ۳ 
Not Found": BEEF .1,1: BEEF aiaei: PAUSE Os RUN 
17:20 PRINT AT 3,04: FOR asi TO 16s PRINT " 
"a NEXT a 
17:20 INPUT " Insert Disk to be Altered "s LINE af 
1740 GO SUB 2110 
1790 INPUT "Enter Block # "sb: POKE trac,bs PRINT AT 10,04" Form 
ating Block "ib 
1760 INPUT "Ok to ReFormat (y) "af: IF adc"Y" OR af="y" THEN RA 
NDOMIZE USR Format 
17704 RUN 
1780 
1790 CLS s PRINT AT 2,0." This will create a Blank Catal og 
on the disk but not change the Disk Mame."''" All files wil 
i be deleted !'" 
1800 PRINT ''" Enter Drive Farameters' 
1810 GO SUB 2200 
1820 PRINT ''"Head Speed",h, "Sides", aa Tracks” numtrks 
18:30 GO SUR 27950 
1940 INFUT "Ok to Init Catalog (y) "sas: IF ate"y" OR at=" Y° THE 
M FORE trac, O: RANDOMIZE USR settrk: RANDOMIZE USRA Load: RANDOMI 
ZE USR Edir: RANDOMIZE USK gseattrk: RANDOMIZE USK save 
18350 BEEF 441,108 RUN 
18360 
1870 
j HE ¢ 
1890: CLS : POKE trac,O: RANDOMIZE USR settrk: RANDOMIZE USR loa 
d 
189% PRINT #4: GO TO FEER Cdrv 
1900 PRINT s PRINT " "s FLASH 1$" Enter Disk Name" 
1910 PRINT "Press STOR (SS “AS to end name": PRINT 
1920: PRINT "Disk Name s "a 
LOO LET mec 
1940 LET aSXcINKEYST: IF INEEVE="" THEN GO TO 1940 
1950 IF CODE af=0 THEN GO TO 1940 
1960 BEEF .O02,1 


1970 IF CODE a£z12 THEN PRINT CHRE B: CHRE X2: CHRE Bjs LET mem-ls 
GO TO 2020 

1980 IF CODE ate Bed THEN FORE m,O0s GO TO 2040 

1990 POKE m,CODE af 

A000 PRINT aX 

COLO LET meme i 

2020 IF INKEVY#< Ann THEN GO TO 2020 

2030 GO TO 1940. 

2040 PORE mO: BEEF 1,202. BEEF .1,20: GO SUB 27950: INPUT "Ok to 
save to catalog (y) Pre LINE at: IF a£z"y" OR ad-"Y" THEN RANDO 

MIZE USR settr ks RANDOMIZE USK saves RUN 

ORO. RUN 

2060 

ZU ZO 

090 

4070 PRINT "Drive Farameterse"s PRINT s PRINT "Drive #",dv-1,"Hea 

d Speed'",h,"Mo of Sides" ره و‎ "No of Tracks" ,numtmks 

2100 GO TO 23570 

2110 REM 

7470 

2130 

2140 REM ۷ DRIVE PARAMETERS ** 

2130 INPUT "Enter Drive O to A P "adv: 

2160 TF dvd THEN GO TO 21530 

2170 PRINT #4: GO TO dvi LET dvecve+l 

2190 LET ase dvs PORE drv, a 

4d 90 RETURN 

2200 FORE Hepd,O: REM 620 12-1 20-2 Ass? 

Dolo INPUT "Head speed é 12 20 30 MS ? "ah 

cee. TF h=z6 OR h=12 OR hz20 OR h=50 THEN GO TO 2240 

esc GO TO 2210 

2e40 IF hé THEN LET 

wê IF mela THEN LET 

2260 IF hzs20 THEN LET 

N IF bão THEN LET 

2230 FORE Hepd,a 

2290 INPUT "Number of Sides 'l or 2’ "sa 

ado TF asi THEN GO TO AITO 

wld 1۳ amd THEN GO TO 2330 

aoe GO TO 2290 

mods PORE Neid, a 

esto INPUT "Number of Tracks 359,40 or BO "a Numtr ks 

aed FORE Ntrk,Numtrks 

ZA RETURN 

720 REM Display Track Map 

2280 CLS : PORE trac,O: RANDOMIZE USAR settrks: RANDOMIZE USK load 

2285 PRINT #4: GO TO FREER ۷ 

wer PRINT " TRACK MAF REPRESENTATION ' '» PRINT "X = Umed Blocks 
O = Free Blocks"''sg PAPER l" 0 Lä A 45 67 8 9"s LET 125 

ORA 

2400 FOR x20 TO 18 

e410 PRINT x: TARE 4: 

2420 FOR ysi TO 10 

A40 PRINT ("XU AND PEER 1-5245)4(0"Q" AND FEER IAA)" "ss LET 


b 
T^ 
eg 


& 


RP o 


i 


3 
Hod E od 


m t 


Lele) 

2435 IF PEER Lean THEN GO TO 2460 

aH NEXT ys PRINT 

245 O NEXT x 

2460 BEEF .05,20: PRINT SOr:"Preses any key for Main Menu "s PAUSE 
Qu RUN 

4470 REM Bad blocks Mapout 

480 CLS : PRINT AT BS, "One Moment Please" 

2490 FOR as42500 TO 43670: POKE a, dow: NEXT a: LET p=48500 

2000 CLS ss PRINT " BAD BLOCK SCAN” 

2010 FORE trac,O: RANDOMIZE USER سا‎ RANDOMIZE USR load 

ee LET esebtEk SOOLO LET tebkEEk $5001 

awe PRINT AT 10,23 "Tracks "st,"Sides "ss 

S040 FOR aso TO tanei 

ado PRINT AT 2,098 RANDOMIZE USA load: IF PEER 23680955222 THEN P 
ORE p,FEEK trac: LET papel PRINT AT 2,04" "* PRINT 
AT 2.085 

ZG RANDOMIZE SR Nextreks IF gei THEN RANDOMIZE USR nextreks LET 
amati 

RA NEXT a 

2300 CLS و‎ PRINT "List of Bad blocks founcd"'':s FOR az4Z300 TO 43 
& ZO 

2070 IF PEER amos THEN GO TO 2620 

S600 PRINT PEEK er Së 

2610 NEXT a 

2620 PRINT ''"End"''"Total Found "gf pA BOO 

650 IF p-439500-0 THEN CLS : FRINT AT 3,2: "NO BAD BLOCKS FOUND" y 
PAUSE 200: RUN 

640 GO SUR 22790 

2600 PAUSE 60: BEEF .1,10: FRINT '''''" Are you sure you want th 
ase Mapped Qut of the track map ۶ 

2660 INFUT "Map them out ? (y) "pa: IF ate"y" OR ate ۱۷۲۲ THEN GO 
TO 2480 

2670 CLS : FRINT AT .وت‎ "Mapping Aborted ۲ ۲ ۳ PAUSE 2003 RUN 
2680 FORE trac,O: RANDOMIZE USRA settrk: RANDOMIZE USR load 

2090 FOR as ZOO TO 43670 

27200 IF" PEER amano THEN GO TO 2730 

47/410 FORE S0024+PEEE a, 245 

A/S NEXT a 

2/20 PORE trac,O0: RANDOMIZE USARA settrk: RANDOMIZE USR save 

2740 BEEF p iO: FUN 

4 AWO BEEF 05,10: BEEF .05,10: INPUT " Disk must have Write prot 

ect ۳ QE "s LINE af: RETURN 

6000 PRINT #4: SAVE "Editor. Bl" LINE 20: PRINT #4: SAVE "Edit. Ci 
"CODE 44000, 1000: PRINT #4: SAVE "EDbas. C1" CODE 60000, 4600 


Program Names 
Programmer "e Names 
our C&R 

Keyed by: 

Date Keyes 

Notes 


David Solly 


David Solly 
Ottawa, 


Program Detailer 
Original Program. 


Ontario, 2 
Used with McBrine Printer Driver 


(McBrine LLIST) 
Tape Version. 


April i989 


PROGRAM LISTING 


LO REM 
up program (Left margin 10, 
page 54) incorporating custom- 
20 REM 
Ottawa, 
Aw REM 
20 REM Conversions 
40 REM 
UDG-letter to which they are 
A2 REM 


nann 


۰ 
+ 
see “past 


Ontario, March 1989, 


scribed in bold-face. 
44 REM 
Chet 128 to Chr& 142 are 


to Chrã 64. In some cases the 

used as a guide, 
46 REM 

print correctly 
۸۳ REM 

scribed in 


if the printer 


all cases as a 


lowercase 


Full size printer Llisting set- 
Line length 64 col., Lines per 
ized McBrine Printer Driver. 
Program written by David Solly, 


LUDD'e are transcribed by the 
mapped and underscored. 
Inverse characters are tran- 


Sinclair Block Graphics 
represented by Chr& 49 through 
context of the listing must be 


The British Found sign will 
ie met to use Uk ASCII. 

The copyright symbol is tran- 
ER e 


50 REM Load McBrine Priter Driver 


do CLEAR 64299: 
لت‎ CLS s 


4CI"CODE 64300 


CLEAR 


PRINT AT di,2s"Start tape to load driver": 


LOAD "mbpd 


27 CLS و‎ PRINT FLASH ۱6۸۳۲ 11,10; "STOF THE TAPE": BEEF 2.585,25 

40 RANDOMIZE USR 64300 

65 CLS s: PRINT AT 11,6; "Draft or Final Copy? "s: INFUT "Select 
D oc F "sree 

70 IF eee! FP" OR rdXm"£" THEN OUT 127,271: OUT 127,71: PRINT AT 1 


Sall; "Final Copy": FAUSE 200: REM Set printer to double-strike m 
ode 

80 IF r#="D" OR r#e"d" THEN QUT 127,27: OUT 127,72: PRINT AT 1 
wa lil Draft Copy": FALSE 200: REM Set printer to normal mode 

go IF rdz"D" OR rgs PF" OR rxXx"d" OR rt="4" THEN GO TO 100 

90 BEEF .5,10% GO TO 65 

95 REM 


100 REM Program Details 
110 DIM m#(6,40) 4 


200 GO SUB window: PRINT 


LET window = 6000 
'''*'"Program Name?" 


210 INPUT nF (1) 

ee] PRINT ''mECLIOs "s" "OR?" 

220 PAUSE O: IF INKEYS="¥" DR INKEYdXs"y" THEN GO TO Bao 
240 GO TO 200 

200 GO SUB windows PRINT ''''"Programerm's& Name” 

210 INPUT n$02) 

eld PRINT “‘'m# (2) 3 CG "OR?" 

S30 PAUSE Of: IF INKEYdXz"Y" OR INKEY#="y" THEN GO TO 400 
AO GO TO Boo 

400 GO SUB window: PRINT CCC "Source?" 

410 INFUT nF CS) 

420 PRINT BECO POE! 

430 PAUSE os IF INEEVY#="Y" OR INKEYSXz"y" THEN GO TO 300 
440 GO TO 400 

200 GO SUB windows PRINT ''''"Keyed by?" 

Sio INFUT n8 (4) 

oo PRINT O'm Ag a ۳ 

B20 PAUSE Oo: IF INKEY#="Y" QR INKEY#="y" THEN GO TO 600 
S40 GO TO Soo 

6400 GO SUB window: PRINT ''''"Date?" 

610 INPUT n5) 

620 PRINT Cont °°. "OR?" 

630 PAUSE or IF INKEY#="Y" OR INEEY#="y" THEN GO TO 700 
640 GO TO 600 

700 GO SUB windows PRINT ''''"WNotae?! 

710 INFUT nãté) 

720 PRINT ''n*€(&0os;s '" "Ok?" 

ZO PAUSE Os: IF INKEYX-z"Y" OR INEEYEXz"y" THEN : GO SUE window: 
PRINT ''''"Frinting!'": GO TO 1000 

740 (50 TO 700 

1000 REM Send Data To Printer 


1010 LERINT "Program Name: "sn$€Cl) 
1020 LPRINT "Frogramer "e Names "xn ta) 
10:0 LFRINT "Source: "end 
1040 LPRINT "Keyed bys ۱ ۲ C4) 
1090 LFRINT "Date Keyed: "ene CO) 
1060 LFRINT "Note: ۱ ۰ mk CG) 


1070 LFRINT '''''' 
1080 FOR asl TO Z9: LPRINT " "ss NEXT at LFRINT "PROGRAM LISTING 


1090 LFRINT ''' 

“000 REM Fetch Program to be Listed 

24010 CLS : PRINT ''''"Name of Program to be LListed? " 

2020 INMFUT "Name? “seta PRINT “foams os "OK?" 

2030 PAUSE or IF INKEY#2"¥" OR INEEY£zs"y" THEN GO TO 2050 

2080 GO TO 2000 

2080 GO SUE windows PRINT FLASH LAT 11,9 "Loading Program": LOA 
D z$ 

WOOO REM Initialize & Introduce 

SOLO LET window = 6000: GO SUB window 

OID CLS : PRINT FLASH LAT 11,104 "STOF THE TAFE": BEEF 2.858,25 
AN PRINT PAPER 14 INE ۵٩۲ 2,108 "McBrine Style" 

SON PRINT PAPER 1: INE Grof 4,6: "BASIC LLIST'ing Set-Up" 

3040 PRINT '''"The object of this program is to llist ase accur 


ately as possible any Sinclair BASIC pro-gram to a full-si 


zed Epson compatible printer and also in- sure that the reg 
uired biblio- graphic information is included with the listing. 
3030 PRINT ۴) ۳ Hit any key "s PAUSE Os GO SUR 
window 

“2060 REM Check the printer 

59070 PRINT '''"Before continuing check the followings" 

5080 PRINT ''"The printer power is on and the printer itself is 
online. The print head is homed to the upper left-hand co 

rner of the pages ۳ 

5100 PRINT #0; " Hit any key "s PAUSE O: GO SUB 
window 


5110 REM Check that the program and program info. is at hand 
S120 PRINT '''"Do you have the following info. handy?" 

Sião PRINT ''"The name of the program to be llisted as saved o 
n the tape?" "The full program name?" The programmer ’s name?!" 
The program keyer’s name?" 

140 PRINT "The date the program was keyed?" "Notes?" 


3150 PRINT #0," Hit any key "¢ PAUSE O: GO SUE 
window 

Léo PRINT '''"When the program continues you will be prompted 

for the info. you are required ta supply. If you do not hav 
e the info. leave a line of underscores so it may be filled 


in by hand." 

29170 PRINT '"When you are prompted type the name of the program 
to be loadedfrom the tape and hit ENTER," 

17:59 PRINT '"You may find that some tape pro-grams can not be br 


Okan into and a special stoped version mayhave to be created 
for listing," 

3180 PRINT #0; " Hit any key "s PAUSE O: GO SUB 
window 

2190 PRINT '''"Once the BASIC program has been loaded, LIST the 

program to insure the the program will ligstfrom the beginnin 
q and then typethe command LLIST," 

We PRINT ''"When LLIST' ing has completed use the printer "e 
form feed command to advance to the next page."''"The main 
program begins upon thenext keypress," 

wee PRINT #0," Hit any key ۱ و‎ PAUSE O: GO SUR 
window 


SOOO GO TO 1 

5999 STOF 

000 REM Window Sub-Routine 

6010 BORDER 1: PAPER 6s INE ©: CLS 

GOO RETURN 

8999 STOF 

9000 REM Save Routine 

9010 CLEAR : SAVE "Lister. Bi" LINE 5000: SAVE "mbpd.Ci"CODE 6430 
O,123 

90:20 CLS : PRINT AT Li, 1 1 "Verification": VERIFY "Lister. Bi": VE 
RIFY "mbpd.Ci"CODE 


Program Name: Program Detailer (McBrine LLIST) 
Proor amer "e Names David Solly 
Sources Original Program 
keyed bys David Selly 
Date Keyecs: Ottawa, Ontario, 2 April 1989 
Note: Used with McBrine Printer Driver 
PROGRAM LISTING 

10 REM Full size printer Llisting set- 
up program (Left margin 10, Line length 64 col., Lines per 
page 34) incorporating custom ized McBrine Printer Driver. 

ZU REM Program written by David Selly, 
Ottawa, Ontario, 235 March 1989, 

au REM 

AO REM Conversions 

40 REM UD "e are transcribed by the 
UDG-letter to which they are mapped and underscored. 

42 REM Inverse characters are tran- 
scribed in bold-face. 

44 REM Sinclair Block Graphics 


Chr 128 to Chrã 143 are 
to Chr 64, In some cases the 
used as a guide. 
46 REM 
print correctly if the printer 
48 REM 
scribed in all cases as 


represented by Chr? 49 through 
context of the listing must be 


The British Pound sign will 
is set to use Uk ASCII, 
The copyright symbol is tran- 


+ + 


a lower-case 'c', 


o REM Load McBrine Priter Driver 
we CLEAR 64299: CLEAR 
9o RANDOMIZE USR 100: LOAD "mbpd. C1" CODE 
60 RANDOMIZE USR 64300 
65 CLS : PRINT AT 11,65"Draft or Final Copy? "s: INPUT "Select 
D or F ۳ 
70 IF r£z"F" OR m£z"£" THEN OUT 127,27: OUT 127,711 PRINT AT 1 
Sali Final Copy": PAUSE 200: REM Set printer to double-strike m 
ode 
BO IF rsszs"D'" OR rdXm"dg'" THEN OUT 127,27: OUT 127,721 PRINT AT 1 
و لا وت‎ "Draft Copy": FAUSE 200: REM Set printer to normal mode 
G5 IF rgs p" OR rgs pe OR eee"! OR egs tt THEN GO TO 100 
90 BEEF «3,102: GO TO 4% 
Qu REM 
100 REM Program Details 
110 DIM n#(6,40)4 LET window = 6000 
200 GO SUB windows PRINT OC CC"Rrogram Name?” 
210 INPUT nF ) ۱ 
Zeil PRINT “‘'m# ide oo, "OR?" 


A40 PAUSE Of IF INKEYXz"Y" OR INKEY#="y" THEN GO TO Soo 
240 GO TO 200 
200 GO SUR windows PRINT ''''"Frogramerc's Name?" 
S210 INFUT n*02) 
220 PRINT ''n$£2)sg''gs"Ogp" 
dao PAUSE Os IF INKEYXu"Y" OR INEEYGEmz"y" THEN GO TO 400 
440 GO TO SOO 
400 GO SUB window: PRINT ''''"Source"?' 
410 INPUT ۳ ۱ 
420 PRINT mE (Ia oe "OR?" 
TO PAUSE Os IF INKEY#="Y" OR INKEY#="y" THEN GO TO $00 
440 GO TO 400 
YOO GO SUE windows PRINT ''''"kWeyed by?" 
310 INFUT n*€(4) 
Seo PRINT “me C4) 9° oo "OR?" 
O50 PAUSE os IF INKEY#="Y" OR INKEY#2"y" THEN GO TO 600 
40 GO TO 500 
600 GO SUB windows PRINT ''''"Date'?' 
610 INPUT nF CS) 
620 PRINT ‘’n#(S)¢ °°. "OK?" 
630 FAUSE O: IF INKEY#="Y¥" OR INKEY#="y" THEN GO TO 700 
640 GO TO 600 
700 GO SUB windows PRINT ''''"Note?" 
710 INPUT ۳۱ (6) 
720 PRINT ‘'m# (6) 9° oe 
AO PAUSE Os IF INKEYd-z"Y" OR TNRKEY#="y" THEN : GO SUR window: 
PRINT ''''"Printing!'": GO TO 1000 
740 GO TO 700 
1000 REM Send Data To Printer 
1010 LERINT "Program Name: ۲ ۲۱3 ) 1 ( 
10:220 LFRINT "Programer "e Name: "srk C2) 
10:0 LPRINT "Sources "an CS) 
1040 LPRINT "Keyed by: "srk (4) 
1050 LPRINT "Date Keyed: "ene (3) 
1060 LFRINT "Notes "NF ) 6 ( 
1070 LPRINT '''''' 
logo FOR asi TO 29: LPRINT " "ss NEXT as: LPRINT "PROGRAM LISTING 
tt 
LO9O LPRINT ''' 
2000 REM Fetch Program to be Listed 
2910 CLS : PRINT ''''"Name of Program to be LListed? " 
2020 INFUT "Name? "igg: PRINT Capo MORO! 
2030 PAUSE Os IF INKEY£z"Y" OR INKEY#="y" THEN GO TO 2050 
040 GO TO 2000 
A050 RANDOMIZE USR 100; LOAD sg 
SUDO REM Initialize & Introduce 
SOLO LET window = 6000: GO SUB window 
3020 PRINT PAPER 1s INK GAT 2,103 "McBrine Style" 
WOSO PRINT PAPER 1۷ INE GAT 4,6: "BASIC LLIST'ing Set-Up" 
29040 PRINT '''"The object of this program is to llist as accur 


ately as 
zed Epson 
uired biblio- 


possible any Sinclair BASIC pro-gram to a full-si 
compatible printer and algo in] sure that the req 
graphic information is included with the listing. 


JOSO PRINT #0," Hit any key "s PAUSE O: GO SUE 
window 


2060 REM Check the printer 

39070 PRINT '''"BHefore continuing check the followings " 

S080 PRINT ''"The printer power is on and the printer itself is 
online. The print head ise homed to the upper left-hand co 

ener of the page," 

239100 PRINT #0," Hit any key "¢ PAUSE Os GO SUB 
window 


S110 REM Check that the program and program info. is at hand 
23120 PRINT '''"Do you have the following info. handy?" 

S130 PRINT ''"The name of the program to be llisted as stated 
on the disc?"'"The full program name?" "The programmer "e name?" 
"The program keyer’s name?! 

$9140 PRINT "The date the program was keyed?'"'"Notes?" 


SLO PRINT #03" Hit any key "s PAUSE O: GO SUE 
window 

W160 PRINT '''"When the program continues you will be prompted 

for the info. you are required to supply. If you do not hav 
e the info. leave a line of underscores so it may be filled 
in by hand." 

29170 PRINT '"When you are prompted for the name of the program 
to retrieve from disc give it in its full LAREEN form. When t 
he program begins to load hold down the break keys to preve 
nt the program from autorunning," 

Sigo PRINT #0," Hit any key "s PAUSE O: GO SUR 
window 

4190 PRINT '''"Once the BASIC program has been loaded, LIST the 
program to insure the the program will listfrom the beginnin 
q and then typethe command LLIST." 

id PRINT ''"When LL. IST'ing has completed use the printer's 
form feed command to advance to the next page." ' '"The main 
program begins upon thenext keypress, " 

DZ PRINT #0," Hit any key "e PAUSE or GO SUB 
window 


Boo GO TO 1 

$999 STOrF 

6000 REM Window Sub-Routine 

6010 BORDER il: PAPER 6: INE Os: CLS 

6080 RETURN 

89299 STOP 

9000 REM Save Routine 

9010 CLEAR : RANDOMIZE USR 10045 SAVE "Lister. Bi" LINE 5000: RAND 
OMIZE USR 100: SAVE "mbpd.Ci"CODE 64300,1235 


10 CLEAR 63525: CLEAR : PRINT USR 100: OFEN #4,"DD": PRINT #4: OPEN #2, "LF" 

20 BORDER 7: PAPER 7: INE Os CLS 

SO PRINT AT 3,0; NMI-SAVE LOADER MENU" 

aa GU SUB 100 

40 PRINT ''"SELECT FROM 1 TO Di 

SO INPUT "MAKE SELECTION ۴ 

60 IF AOtszz"O" OR AFr="6" THEM GO TO SO 

70 PRINT #4: LOAD "NMI-S'"4+424+", CM" CODE 

ao STOP 

100 RESTORE : PRINT 

110 FOR zi TO D 

120 READ Af: PRINT AF 

L370 NEXT à: PRINT : RETURN 

140 DATA "1) Daytimes (51)","2) Keyboard Scan", CI) Empty","4) Empty". "m Empty" 
9000 CLEAR 28000: CLEAR : PRINT USR 102: RUN 


Ata deem ایا رابت‎ fe 


tore Aba LARKIN DOS. 


"T H / 
aor ae Ao q^ ; 


Frogram Name: 
Programer's Names 
SOUL ces 


Disk Menu CAUTOST. B1] 
George Chambers 
Original Program 


Keyed bys George Chambers 
Date keyed: Toronto, Ontario, 1988 
Notes 
PROGRAM LISTING 
1 REM DISK MENU 
o GO TO 4 
A CLEAR SO0O00s BORDER Os PAPER Os INE Os CLS : RANDOMIZE USR 
1022 
4 PRINT USR 100: OPEN #4, "edd" 
o CLEAR 695339: BORDER ls INK 7: PAPER Os CLS 
é PRINT AT 1,23 PAPER 24" DISK UTILITIES MENU SCHER 
D PONE 23630,87 LET x-16 
9 RESTORE 100 
10 FOR n=l TO x 
20 READ af, PRINT " "GCHRE (metod) n — "sa 
30 NEXT n 
44 INK 4 
ow PLOT INK 440,0: DRAW 295,0: DRAW 0,178: DRAW -2595,0: DRAW © 
yg 7175: FLOT 1,1: DRAW 253,0: DRAW 0,173: DRAW —-252,0: DRAW Q,-—17 
An INK 7 
AG PLOT 9,20: DRAW 227,0: DRAW O,132: DRAW —-237,0s DRAW O,-—-1335 
DO PRINT AT 20,14 PAPER 24” "¢ FLASH Is "Frese À to "CHR 
ZS tó)" only"s FLASH Os" d 
70 LET mës] ۳۳ 
Bo IF N£z"Aà" OR NEZCHRE CCX+1)4+64) THEN GO TO 70 
85 BORDER Os: PAPER Os: INK 7: CLS 
90 GO TO (CODE n#-64) #200 
190 DATA "Disk Doctor”, "Disk copy(1 or 2 Drives)", "Rename a Prq 


m", "Format a Disk", "Repair a Disk 
File","Disk 


Directory","Recover an Erased 


Label (from Cat)", "Improved Disk Label-maker"'","Copy 


a program", "Erase Files from a Disk" 


110 
ctor 
160 
200 
400 
GDC 
aoQ 
1000 
1:200 
1400 
1600 


DATA 
instructions,” 
GO TO 1 

PRINT #43 
PRINT #4: 
PRINT #4: 
PRINT #4: 
PRINT #43 
PRINT #4: 
PRINT #4; 
PRINT ۶ 


“Program Loader", "Header Reader", "Program details", "Do 
"Return to RAMdisk Menu" 


LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 


“doctor. BL" ~ 
"copylia.RBi":s 
"rename, BL ts 
"FORMAT. BL”. 
"repair. Bi". 
"recoave., BL" 
"labels. Bi" 
"label2.Bi1"^ 


NA 


1800 PRINT #4: LOAD “Move. Bi". 

SOOO PRINT #4: LOAD "erase.Bi'. 

meld PRINT #43 LORD "Loader. BIN 

2400 PRINT #4: LOAD "reader. BIY, 

2600 GO SUB SOOO 

2610 PRINT #4: PRINT "help. CT" 

2620 PRINT CHR# Zen PRINT "End of File...Fresse any key": PAUSE © 
CLS : GO TO 1 

2800 GO SUB SOCO 

2910 PRINT #4: PRINT "doctoi.CT" 

2920 PRINT CHR# 2g: PRINT "End of File... Press any key": PAUSE © 
GO TO 1 

4000 GO TO 1 

2200 PRINT #4: GO TO 4: PRINT #4: NEW 

$000 INE Os FAFER 7: BORDER 7: CLS 

2010 PRINT #4: LOAD "“tagwid. Ci" CODE 

BOLO RANDOMIZE WSR 642002 PRINT CHRE Xy 

BOZO RETURN 

8999 STOP 

9000 CLS s: LET od=4: PRINT AT 15,93 "SAVE ROUTINE" ’" Press ""D'" 
key to save to disk,"''" or: ""T"" key to gave to tape": PAUS 
EO 

9010 IF INKEYS€X-z"t" OR INKEYGSXz"UT" THEN LET odzs2 

9020 PRINT RoD: SAVE "AQUTOST,Bi" LINE 1 


Program Names Copy A Program From Disk 
Programer's Name: Larry Kenny: George Chambers 


Gour cen Original Program 

keyed bys the authors 

Date keyed: Navan & Scarborough, Ontario, 1988 
Not ex lar ken whi laity 


PROGRAM LISTING 


10 CLS : PRINT : PRINT "= LARKEN FILE MOVE and RENAME =! 

20 RANDOMIZE USR 100: OPEN &4,"dd" 

SO: CIRCLE 48,110,10 

40 PLOT 18,80: DRAW 0,60: DRAW 60,0: DRAW O,-60: DRAW -60,0 

SO PLOT 46,84: PRINT #4: DRAW 5,14,2 

60 PRINT #4: CIRCLE 58,100,141: PRINT #4: CIRCLE 28,110,142 PRINT 
#4: CIRCLE 28,90, 14 

70 PLOT 18,120: PRINT #4: DRAW 5S,6,1: PLOT 18,121: PRINT #4: D 
RAW 4,4,0 

75 PRINT AT 5,2; LARKEN" 

100 PRINT AT 10,16, "Select One" 


110 PRINT AT 14,0;"'1"' Single File Copy tor 1 or = Dis 
k Drives" 

120 PRINT AT 17,0" "äi Rename a File on Disk" 

120 PRINT AT 19,04" CE Save this program to Disk" 

140 PRINT AT 21,059" '4' Catalog Disks" 


190 INPUT "Enter 1, 2, A or 4 "s LINE af 

200 IF ag="1" THEN GO TO 900 

210 IF aëei än THEN GO TO 8000 

215 1۳ afe" THEN GO TO 9800 

2108 IF age"4" THEN GO TO BOQ 

220) GO TO 190 

200 CLS : INPUT "Drive O 1 2 or 3 "sar IF azã THEN GO TO ۶ 
SOS INPUT "Search for string "xs LINE af 

10 PRINT #4: GO TO a: PRINT #4: CAT aX,: INFUT "Another Catalo 
g ?7 "s LINE ati IF ate="y" THEN GO TO 300 

SO RUN 

950 LET start=1000 

LOOO DIM fXi9): GO SUB 7000: GO SUB 7500: PRINT AT 10,0; "Enter N 
ame of File to be Copied" 

1005 INPUT "File Name "5 LINE Of,,,"Drive # (0-4) "sÜüdrv: LE 
T fEng, 

1010 FOR Tei TO 9: PORE Onam,CODE fE): LET OnamsOnam-tis NEXT f 
1100 GO SUB 7500: PRINT AT 10,2: "Rename file or Same Name T" 
1102 INPUT "New Name (or Ret) "i LINE n£$,,,"Destination Drive & 
"s Ddrv 

1110 IF LEN n£ous THEM LET ۰۴ 

11320 FOR asi TO 9: FORE Dnam, CODE f£(a)s LET DnamesDnamti: NEXT a 


1140 GO SUB 7500: PRINT AT 10,0; "Copying "so8#sAT 19,183" on Driv 

e "s+ Odry 

1150 PRINT AT 12,14, "TQ" 

1160 PRINT AT 14,8543" on Drive "sDdrv 

1200 PRINT #4: GO TO Odev: LET rt=USR indir: IF ۳۳۰ THEN GO TO 
(t 

20003 LET rt=USR Ldis IF rtz»0 THEN GO TO rt 

2010 LET Tlan=FPEER 34002: LET passi: IF Tlens (PEER Nbes)-l THEN 
LET Fasc 

ido GO SUR DesDrv 

Dedo LET rtsUSR Svnam: IF rts» THEN GO TO rt 

eO LET rt=UBR Svdatar IF rtz»0 THEN GO TO rt 

2400 IF pass=1 THEN GO TO 5000 

2000 GO SUR OrgDrvs LET rteUSR Ld2: IF rts»0 THEN GO TO rt 

2700 GO SUE DesDrv: LET rtsUSk Svdata: IF rtziao THEN GO TO rt 
SOOO LET rt=USR Svend: IF ۳۳۰۰ ۳۲ THEN GO TO rt 

$0890 PRINT AT هب1۵‎ "File Copied": BEEP .1,10: BEEF .1,10: PAUSE 
e008 GO TO 1 

2990 REM ~~ Error Megas سس‎ 

6000 PRINT FLASH ts "File Not Found": GO TO 6500 

6010 PRINT FLASH lg pisk Full": GO TO 6500 

4020 PRINT FLASH 1 "Data Error": GO TO GO 

6030 PRINT FLASH te" Rename Error": GO TO 6300 

6500 BEEF «Sã BEEF aS, lr PAUSE Soo: GO TO 1 

7000 LET Mem=34800: LET Qwuka=34700: LET Dwkaz]4780: LET Onam=246 
Os LET Dnam=24650 

7100 LET indir=E2000: LET Ldl=S2003: LET Ld2=]2006: LET Svnam=S32 
009: LET Svdatasz2012: LET Svend=22015: LET Renam=32018 


7130 LET 0QrgDry=7300: LET DesDrvs7400: LET Nbeg=240032 LET Beize 
se OO ` 


7160 REM Dien BsizesSi20 Nbcs=7 SDen Esizez2080 Nbas=14 
7170 FORE NDc&,7: PRINT #4: FORE Bsize, Sigo 

7200 RETURN 

75800 IF Odrvz»Ddgkv THEN PRINT #4: GO TO Odrvs RETURN 

FSCO INPUT "Insert Source Disk": LINE af: RETURN 

7400 IF Odeve eDdev THEN PRINT #4: GO TO Ddevi RETURN 

7420 INFUT "Insert Destination Disk’: LINE af: RETURN 
7800 CLS : PRINT "== LAREEN File Move Program w=", PRINT 


7600 PRINT " Drives don't have to be the same type. You can c 
opy from DS to SS or QD to DS etc. The head speed of either disk 
should not be faster than the speed of either drive though. 


7990 RETURN 


BOC REM == Rename سح‎ 
Boos LET ermnorst3o00 


840 1 ا)‎ DIM ۴ ) 9 ۸ GO SUB 7000: CLS : PRINT “=~ LARKEN File RENAME 
Program --"s PRINT s PRINT "When Renaming keep the correct ext 
angian and syntax of the file name": PRINT AT 10,6: "Enter Name o 
f File to be Renamed" 

BOLS INFUT "File Name "s LINE oFf,,,"Drive # (0-4) DS LET + 
Fagot: PRINT #4: GO TO D 

gos FOR f1 TO 9: FOKE Onam, CODE fÆ(f);s LET Onam=Onamtis NEXT f 
Goo PRINT AT 10,04," Enter New File Name "se INFUT "Ne 
w Name "fE 


8110 
8150 


v 1 ٩ "on 


BIOD 
Oy 
3200 
EI 
£309 09 0 
9000 
key 
E O 
JOLO 
POO 
9030 
90410 
9700 


BEEF 


FOR Zei TO 9: 


CIO sr: 


FOE Dnam,CODE fXORP2s LET DnamsDnam-tl: 
PRINT AT 6, 124 "RENAMING"g AT &B,4s0X*," TO 
Drive "iD 

INFUT "Press any key e: 
(44,0: GO TO error 
PRINT AT 20,849 LET rt=USR Renam: 
BEEF .1,10: BEEF 1,20: FAUSE 100: 
STOF 

CLS s LET ods y 
to save to disk,"''" 


NEXT f 
"SHAT 10 
LINE af: IF at="n" THEN BEEF .1,1 
IF rtc»0 THEN GO TO rt 

GO TO 1 


PRINT AT 15,9; "SAVE ROUTINE" '" 
Or t "D" H 


unpun 
PAUS 


Press 
key to save to tape”: 


TF INKEVY #2" ¢ ” 
PRINT #ocls 
PRINT tod: 
STOF 

RANDOMIZE USR 100: 


OR INKEVE=0 THEN LET ods2 
SAVE "Move. B1" LINE 9700 

SAVE "Move .CI'"CODE 33000,1000 
LOAD ACU CODE 2000: 


“Move RUN 


Program Names Larken Disk Program Header Reader 
br ان‎ amer "e Names George Chambers 


GourcCer Original Program 

Keyed bys George Chambers 

Date Keyed: Scarborough, Ontario, 1988 
Notes Larken utility 


PROGRAM LISTING 


100 REM File Reader vi, oo for the LAREEN system 

110 ۲ Hy D, Chambers 14 Richome Court 
Scarborough, Ont. CANADA Mik 2Y1 

120 REM Use to obtain header information from a disk 

120 REM Data statements contain Drive Control Code, 

140 REM For use with the DSF 400 system of 3090 bytes/track 


using a DD drive i.e.80 tracks 

150 RANDOMIZE USR 1004 OPEN #4, "dd": PRINT #4: OPEN #23, "LP" 

159 PRINT #4: FORE 16090,21: PRINT #4: POKE 16094,10: LFRINT 
170 RESTORE 210 

180 FOR meVAL "63000" TO VAL "63077" 

190 READ a: FORE nia 

200 NEXT n 

210 DATA 1995,45,246,195,72,246,195,104,246,243 

220 DATA 2O05,98,9,201 ,58,100,0,251,291, 205 

220 DATA 33,246,58,176,92,90,29,22,205,126 

240 DATA 0,205,122,0,::,112,32,17,196,224 

220 DATA 1,90,20,237,176,195, 38, 246, 205,33 

260 DATA 246,58,176,92,50,29,32,322,156, 224 

279 DATA 17,112,32,1,0,20,2357,176,205, 150 

dO DATA 0,205,126,0,:205,1:20,0,195, 558,246 

290 DIM «# (446) 

00 DIM 16100) 

410 DIM d£(100,10) 

ae LET tracmemx728: LET loadbut 62000 

wd LET poss LET pasir LET ob=2: LET oc=3 LET od=4: LET oez«5: 
LET ofzsés: LET og=7: LET foo: LET z200 

SAO LET nameso76B8g: LET butfersS 7500 

390 BORDER oa: PAPER oa: CLS 

260 PRINT AT ob,ogs INK obs PAPER ofg"LAREEN DISE UTILITY"; PAR 
ER oan, e TAB of; PAPER of: "Program Header Reader": PAPER oa, TAB 
og: PAPER ofa" By George Chambers" 

A470 INE OC: PLOT of VAL "108": DRAW oo,VAL "62": DRAW VAL "255" 
4O00: DRAW oo YAL "+62": DRAW VAL "—-295",o00 


A80 INK of: PLOT VAL "G'",VAL "114": DRAW oo, YAL "SO": DRAW VAL 
"228" o0 DRAW co, VAL "SO": DRAW VAL "228", 00: INE og 

se INPUT "Drive #PCO-4) Pdre: PRINT #4: GO TO dr 

ZBE POKE 27658,0: PRINT ''''''s"Printout wanted? Y/N": PAUSE oo 
489095 IF j#e@"y" THEN LET z-oas: PRINT ''"Large or Small Printer? سا‎ 
Zi PAUSE oo 

3207 LET choc: IF INKEYSX:z"I1" THEN LET chzoe 

PO INFUT ''"Enter Name of Disk" GF 


- 
m 
= 
H 
m 
= 
" 
+ 
+ 


295 PRINT ‘‘'"Place disk to be read in Drive Madero! nu. th 
en Press a key"': FAUSE oo 
400 REM Picking pgm names from buffer (Track ©) 


410 PORE trac,o00: RANDOMIZE USA Ioadbuf 

420 PRINT AT of tac ,oorc#C TO 415) 

430 PRINT AT 10,00; FLASH pa: "Scanning Directory track's FLASH 
OC 

440 FOR n= oa TO 100 

450 LET en 

460 IF FEEK (nametoc)=oo THEN LET e=n-oas LET n=100: GO TO S30 
470 IF PEEK (nametoa) #254 THEN LET name=namer24: GO TO 460 

480 FOR mapa TO 9 

AGO LIST dE£€(in,m)sCHRE PEER (nameem) 

Soo NEXT m 

5410 LET l(n)ozPFEERK (nametil) 

wa LET namesnamees4 

md NEXT n 

540 CLS s: PRINT " DISE DATA-HEADER READER em mmm mme 


Seo PRINT “TRACK NAME START LENGTH ST." 

260 IF zaga THEN PRINT ۱ "Disk Names "sge: LPRINT ‘" TRACK NAM 
E START LENGTH ST," 

S70 PRINT Sch 

990 PRINT AT 21,084" (M returns to menu)": PRINT AT ocon 
620 FOR tuga TO e: 

620 IF PEER 2Z689%0g THEN BO TO 820 

640 REM IF IN 1600 THEN RANDOMIZE USR curtrac 

650 FORE trac, (ts RANDOMIZE USR loadbuf 

670 IF PEEKE {buffer toa) o00 THEN 

6800 IF PEEK (b*uffer-c-oalsoo THEN GO TO B00 

635 PRINT PEER (buffertoa);s TAB ocs 

690 FOR a«s(buffer-ob) TO (ibuffer-10) 

700 PRINT CHEE FEER as 

710 NEXT a 

AQ LET startsoo: FÜR a=(buffer+ob) TO (bufferti0): IF PEEK asd 
AND (PEER (aroa)=67 OR PEEK Catoad=685) THEN LET start=oa 
7:320 NEXT a 

740 PRINT TAB 4 ۳۲۳۳ (buf far +I) -256*FEEK (buffert-13): 
750 PRINT TAB 21: PEÉEK (buffertar) + ASORFEEE (buf fer AD s 
760 LET LEN=PEEE (buffer +17) +286%PEEE (buffer +i) Oo 

770 IF Jenzs63558 THEN LET lens] 

780 IF setartzsoo THEN FRINT TAB 28 Len: GO TO 800 

790 PRINT 

BOO IF INEEY$=" m" OR INKEY#="M" THEN GO TO 2000 

310 NEXT t 


9820 
gii 
340 
351 
Gét 
370 
aeo 
GOO 
AL 


910 


E TURN 


1010 


eme ENTER for 


SE © 
10:20 
^000 
OC 
BIDS 
GOD 
key 
EO 
9010 
90:20 


PRINT TAR od; INE obsi"Laset file on the disk"s LET foa 
IF 200 THEN PRINT AT 19,0a;" Press any key to clear screen 


THEN GO TO 840 

IF fapa THEN GO TO 
THEN (GO TO 2000 
PRINT AT oc,oo 


ego AND INKEY eso! 
IF zepa THEN GO SUR VOO: 
TF OR INKEY ds "MI 
PRINT AT od omet: AT og, OO CER 
GO TO GA 
FOR n=ocl 


IF 
1000 


TO 17: IF SCREEN? (n,oo)-" " THEN LET nz17s LET i= 


FOR i200 TO Sls PRINT Schi SCREENS (midas NEXT is NEXT me E 


THEN CLS ۶ 
Wan fee RAM i ak 


OR INREY#< STM 
Press 


IF INKEV#< >" mm" 
next record! 


PRINT AT og,oas "Pr 
menus FAW 


THEN RUN 
4: FRINT #4: NEW 
BORDER 7s OLS ۵ 


IF INEEYXZ»"p" 

PRINT #4: GO TO 
INE Os PAPER 7: 
STOF 

CLS : LET و تلم(‎ 
to save to disk, 


LST 


non D U ۶ 
PAUS 


PRINT AT 15,94 "SAVE ROUTINE"''" Press 
Du or ""T"" key to gave to tape": 


THEN LET 
LINE 100 


IF INKEYSzs"t" OR INE EY Ss" T” odsz 


PRINT sod: SAVE "reader. Bi" 


Program Names 
Programer's Names 


Sources 
Keyed bys 


Date keyed: 
Notes 


Kename a Program 

George Chambers 

Original Program 

George Chambers 
Scarborough, Ontario, 1988 
Larken utility Crename. Bl] 


PROGRAM LISTING 


1 GO TO 15 


10 


BC 


"rad u 


9000 

key 
E oO 
9010 
FORO 


RANDOMIZE USR 


CLS : 


RANDOMIZE USR 100: 


ranr 
seg tees! 


FORE 

INFUT 
PRINT 
INFUT 


to 


SAVE "rename. HI" 

PAPER 24" Rename a Program 
OFEN #4, "dd" 

E,W: DIM af(9P DIM DECO) 

"Drive #¢0—4) "des PRINT "Drive #" و ۳ و‎ ۳ 
#4: GO TO des PRINT #4: CAT "", 

"Old name (in full) "sae 

"Now enter new name "sb 

PRINT AT 17,08 "Prese a key to start rename ": 
"Renaming in progresse" 

44: MOVE a¥,b# 

PRINT AT 10,2:"Frogram name has been changed" ' "from 


1001 
PRINT TAR 71 


۱۱ ۶ ۶ 


engaged" 


PAUSE O 


"ste 

90 FORE 27658, Os 
IF INKEY#="" 

IF INEEY E "y" 


PRINT AT 16,3; "Change another name"? 
THEN GO TO 90 
THEN GO TO 18 


(y/n)" 


PRINT #4: GO TO 4: PRINT #4: NEW 

STOP 

CLS : LET odzs4s PRINT AT 18,9: "GAVE ROUTINE"''" Press "Ppr" 
to save to disk,"''" orc ""T"" key to save to tape": PAUS 


IF INKEV Sat! 


PRINT 


OR TNE Yge T” 
SAVE "rename. Bi! 


THEN LET odzz 


od: LINE 18 


